Nr. 11/86 November 


JEDEN MONAT: 
BARE 1000 DM! 


chneide 


GEWINNEN 
SIE EINEN 
SCHNEIDER 
PC 1512! 


NEUE SERIE: 
DAS MS-DOS 


Nr. 11/86 November 


[JEDEN MONAT: 


|BARE 1000 DM! 


Es zerrt schon an unseren 
Nerven: Das große War- 
ten auf die Schneider PC. 
„Ende Oktober”, so 
heißt es jetzt, würden die 
ersten bei den Händlern 
stehen, bei den Modellen 
mit Festplatte könne es 
sogar Mitte November 
werden. Damit Ihnen die 
Zeit nicht zu lang wird: 
SCHNEIDER AKTIV be- 
ginnt in diesem Heft, Sie 
mit MS-DOS vertraut zu 
machen, seinen Möglich- 
keiten und Befehlen. 
Wenn Sie mal genau hin- 
schauen, werden Sie etli- 
chen alten Bekannten be- 
gegnen. Übrigens: Vorab 
sei verraten, daß auch 
etliche bekannte Herstel- 
ler sogenannter „IBM- 
Kompatibler” sehr alt 
aussehen werden, wenn 
erst mal die Schneiders 
über den Ladentisch ge- 
hen. Denn die PC — so- 


Grüß Gott = 
Guten Tag 


viel sei vorab aus unserem 
laufenden Test verraten — 
bieten Möglichkeiten, ar 
denen sich auch die Fir- 
ma mit dem großen C 
sehr verschlucken wird, 
mal abgesehen vom Preis. 

Apropos Preis. Wenn 
Sie einen solchen PC be 
sitzen wollen, warum las- 
sen Sie ihn sich nicht 
schenken? Von wem? 
Von uns! Wir verschen- 
ken nämlich einen Schnei- 
der 1512. An wen? Lesen 
Sie doch mal auf Seite 43 
nach. 

Bis zum nächsten Heft 
Ihr SCHNEIDER AKTIV. 
Team 


PS: Sie wissen doch — sind 
Sie mit uns zufrieden, sa- 
gen Sie es weiter. Sind 
Sie es nicht, sagen Sie es 


uns: SCHNEIDER AK- 
TIV, Postfach 1107, 
8044 Lohhof. 


Ferdi's Computer Software 


EDV-Service 
Ir Ferdinand Onddcker 
HARDWARE 
Joyce Plus PCW 8512 nur 2.198, — 
CPC 464 + DDI-1 nur 1.198, — 
ANWENDERSOFTWARE alles auf Disk 
SUPERFILE 99,90 DM 


— eigener Maskengenerator 

— Dateiverwaltung bis 27 KB pro Datei 

— wählbar zwischen Grün- und 
Farbmonitor 


UNPROTECT 33,90 DM 
— hebt den Listschutz bei SAVE” ",P- 
Programmen des CPC 664 und 
CPC 6128 auf. 


UNIVERSALDATEI 69,90 DM 
— Adreßverwaltung, Videoarchiv, Musik- 
archiv und Vereinsverwaltung mit 
Lastschriftausdruck und Mitglieder- 

ausdruck, auch auf Etiketten. 


SPIELE UND FREIZEITSOFTWARE 


Kass. Disc 
Bomb Jack DM 28,90 39,90 
Batman DM 34,90 49,90 
Shogun DM 37,0 49,% 
Rambo II DM4,0—— 
Airwolf DM 34,90 49,%0 
Match Day DM4,0—— 
Way of the Tiger DM 38,90 49,9% 
Friday the 13th DM 30,90 59,90 
Superfile(664 + 6128)DM —— 79,%0 
Universaldatei DM—— 49,9% 
Unprotect 
(664 + 6128) DM—— 33,9 
Mac Lin Generator 


Gesamtprospekt gegen 
Schutzgebühr. 


Ferdi’s Computer Software 
EDV-Service 


Höftestr. 32, 4400 Münster 
Tel. 0251/61 9881 


Tel. 05609/9838 
Versandzentrale 
3501 Ahnatal 


HELISOFT + 
Karin Wachsmuth 
Leipziger Str. 42 
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SCHNEIDER PC sofort ab Lager 
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CPC 464 grün 
CPC 6128 grün 
CPC 6128 farbe 
DDI 1 
Zweitlaufwerk 3° 
Netzteil MP 2 


La ZZ 2 ZZ ZZ 2 2 2 2 ZZ ZU 2 2 ZZ ZZ ZZ ZZ 2 ZZ 2 2 ZZ ZU ZU 2 2 2 ZU 2 ZU 2 2 2 ZZ Se SS SS SE ZZ, 


Joyce PCW 8256 

Joyce PCW 8256 512 Kb 
Joyce PCW 8512 plus 
FD 2 Joyce 1 Mbyte 
512 K Aufrüstung Joyce 


1599,— 
1699,— 
2129,— 
599,— 
129,— 


La Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 SZ SS SS SS SS SZ SS SS SS SS SS ZI 


DMP 2000 
Seikosha SP 1000 


659,— 
749,— 
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Doppeldruck 

2 Drucker am CPC 
Disketten 3° 10 Stück ab 
5.25° 96 TPI 10 Stück ab 


89,— 
79,— 
29,50 
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lohnt sich auch bei anderen Artikeln 


INSERIEREN 
BRINGT GEWINN 
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Anrufen 


SFK elektro GmbH 
Delsterner Str. 23 
5800 Hagen 1 
Tel. 02331/72608 


Neuheit 


Mac Lin für den Joyce 
Mac Lin, das Programm das 
programmiert. Schreiben Sie 
mit Mac Lin Ihre individuellen 
Programme in einer Sprache, 

die Sie kennen: Deutsch. 
Warum wollen Sie immer von 
der Stange kaufen, wenn das 
Erstellen eigener individueller 

Programme so einfach ist, 

dank Mac Lin. 
Mac Lin der Progranım- 
generator kostet bei uns 
475,- DM 


Unser Angebot 


Schneider Joyce mit Mac Lin 
2075,— DM 
Schneider Joyce Plus mit 
Mac Lin 2725,— DM 
Händleranfragen erwünscht 
Selbstverständlich können Sie 
alle Geräte aus unserem 
Lieferprogramm auch mieten. 
Katalog gegen Rückporto 
(1,50 DM in Briefmarken) 
Sämtliche Lieferungen 
erfolgen zzgl. Porto und Verp. 


INHALT NOVEMBER ’86 


Landscape: 
Das Programm, das Ihrem 
CPC ungeahnte Grafikfähig- 


keiten verleiht ab Seite 4 
Joysticks: 

Wer ist denn nun der 

Spitzenreiter? auf Seite 8 
Joysticks-Ersatz auf Seite 9 
Datenbanken: 

Zweiter Teil und Schluß — fünf 
Datenbanken im Test ab Seite 14 
Spiele: 

England kontra Deutschland — 

wer gewinnt ab Seite 82 
Pengraph: 

Die Überraschung für weniger 

als 300 Mark ab Seite 84 
SERIE & SERVICE 

F.W.: 


Mein dritter Teil zum zweiten 

Teil des Vierten — oder war’s der 

Erste? Auf jeden Fall gibt’s Rat 

und Hülfe gratis -- nebst Leser- 

fragen ab Seite 10 


Tips & Tricks: 
Fünf Seiten gewußt wie — für 
jeden etwas ab Seite 19 


Programmieren: 
Ist Basic doch besser? ab Seite 71 


MS-Dos: 
Die Befehle des Schnei- 
der PC ab Seite 74 


Börse zum Suchen und Findenab Seite 77 


GEWINNSPIEL 


Gewinnen Sie einen Schneider 
PC 1512! Wie, das erfahren Sie ab Seite 43 


Schneider PC 1512: Dieses Gerät können Sie bei unserem großen Wettbewerb 


LISTINGS gewinnen — Wer nicht mitmacht, hat auch keine Chance! 


Das 1000-Mark-Listing: 
Diskman — ein Manager Ihrer 
Disketten ab Seite 22 


Business-Grafik: 
Lassen Sie Ihren CPC 


mal arbeiten ab Seite 33 

Adreßdatei: 

Der Computer verwaltet nicht nur 

Ihr privates Telefonbuch ab Seite 51 

Textverarbeitung: : 

Schreiben Sie Ihre Briefe doch \ A Ä \ , ı \ A 1 \ \ 
mit dem CPC ab Seite 57 rer 


Kartei: 
Dieses Programm schafft Ordnung 


ne und a Seite 63 Programmieren lernen, wie es nicht im Handbuch steht! Unsere neue Serie ver- 


rät, wie Sie Ihren CPC zu wahren Wunderleistungen veranlassen 
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TEST 


WUSSTEN SIE 


WELCHER GRAFIK- 
KUNSTLER IN IHREM 


Manchmal werden CPC-User von Besitzern anderer 
Marken über die Schulter angesehen, lauthals werden 
vermeintliche Mängel gerügt. Was diese Maschinen 
aber grafisch können, davon können sich wiederum 
diese Kritikaster mehr als eine Scheibe abschneiden. 
Das beweist schlagartig das Utility „Landscape’, dem 
dieser Test gilt. Das sollen andere Marken erst einmal 
nachmachen! Unsere Originalfotos auf dieser Doppel- 
seite zeigen eindringlich, welche Grafikkünstler die 
Schneider CPC sind. 


Schneider CPs sind 
für ihre guten Grafik- 
Fähigkeiten bekannt, 
kommerzielle Spiele und 
Grafik-Programme bewei- 
sen es. Leider ist es 
manchmal recht mühsam, 
cine gute Grafik zu erstel- 


Die 


len, z.B. wenn man et- 
was vorführen möchte. 
Das Landscape Utility 


kann dem abhelfen. Nach 
Laden mit RUN“LU pro- 
duziert dieses reine Ma- 
schinensprachprogramm 

innerhalb von ca. 20 Se- 
kunden ein fertiges Bild 
einer Landschaft. Auf Ta- 
stendruck mit ,„C“ für 
„Continue“ geschieht 
dies wieder, immer eine 
neue Landschaft. Der 
Autor dieses Programmes 
ist ein Schotte, lebt in 
Schottland und hat sich 
von den ihn umgebenden 


Biete, rin: ya 
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E 


Far I 


Landschaften anregen las- 
sen. Wer wie ich in 
Schottland war, erkennt 
die Glaubhaftigkeit dieser 
Bemühungen. Es ist ein- 
fach erstaunlich und 
selbst abgehärtete Com- 
puter-Freaks sind immer 
wieder verblüfft, welche 
neuen Seiten und Fähig- 
keiten ihre Maschinen 


Bra 


wu‘ rec 


zeigen können, wenn ein 
kreativer Programmierer 
am Werke war. Der Pro- 
gramm-Autor Dr. Brian 
James ist von Beruf Pro- 
fessor für Informatik an 
der Universität Aberdeen 
in Schottland und hat 
u.a. eine sehr gute Anlei- 
tung zur Programmierung 
des Z 80 in Assembler 
geschrieben, er unterrich- 
tet auch darüber. Seinem 
kommerziellen Produkt, 
das hier vorliegt, merkt 


“Zu 
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man den absoluten Kön- 
ner und Fachmann an. 
Wie macht er das eı- 
gentlich? Ein immer neu- 
es Bild in meist 16 Far- 
ben in MODE 0 in nur 
20 Sekunden. Im Pro- 
gramm „stöbern“ mit ei- 
nem 


Maschinensprach- 
Monitor bringt nur dem 


Fachmann selbst etwas 


TEST 


Kenntnis, darum ein paar 
einfache Erläuterungen. 
Die Lösung heißt: Frak- 
tal-Geometrie mit be- 
grenzter Zufallsteuerung. 
Fraktals gehören zu der 
Mathematik der komple- 
xen Zahlen, fast jeder 
CPC-Besitzer kennt in- 
zwischen die von B. Man- 
delbrot (Mathematiker 
bei IBM) erfundenen ‚Ap- 
felmännchen‘, in Schnei- 
der aktiv 6/86 S. 69 habe 


ich schon mal eines abge- 


bildet, auch für Schneider- 
User gibt es inzwischen 
dafür Programme. Ohne 
Mathematik: Die dort er- 
zeugten, scheinbar regel- 
mäßigen Grenzen im In- 
nern kann man auch gera- 
de ausgebreitet darstel- 
len. Wenn man nun zu 
Beginn der Rechnung ei- 
ne Zufallszahl (in BASIC 


mit RANDOMIZE und 
RND) vorgibt, wird für 
immer neuen Verlauf der 
Grenzen gesorgt. Das ist 
auch in Maschinen-Code 
machbar, es werden im- 
mer neue Konturen für 
Wolken und Berge er- 
zeugt, diese dann (inner- 
halb vorgebbarer Gren- 
zen) zufallsmäßig pla- 
ziert. Eine schnelle Fill- 
Routine (in den Grafik- 
Koordinaten von Null bis 
zur berechneten Grenze) 
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läßt dann ausgefüllte Ber- 
ge und Wolken entstehen. 
Vorher wird der Bild- 
schirm noch schnell in 
den Himmel und Erde ge- 
teilt, zufallsmäßig er- 
scheinen Sonne und 
Mond, manchmal auch 
Sterne, Tag oder Nacht, 
Frühling, Sommer, 
Herbst und Winter (ab 


ii. 


und zu auch mit fallen- 
den Schneeflocken!), Kü- 
stenlandschaften oder 
rauhe Berge. Immer 
haben die entstandenen 
Bilder starke Ähnlichkeit 
mit den Highlands von 
Scotland The Brave. 
Wenn man nun noch 
eine kleine Bibliothek 
von Shapes (zufallsgesteu- 
erte Größe, Häufigkeit 
und Plazierung) mit ein- 
baut, dann erscheinen 
Bäume, Burgen, Brücken 
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und Blumen. Natürlich 
muß man für einiges sor- 
gen: Die INK-Auswahl 
darf keine blaue Sonne 
oder grünen Mond erge- 
ben, rotes Gras ist auch 
ziemlich selten. Ebenso 
dürfen Bäume nicht im 
Wasser wachsen, Schlös- 
ser liegen meist nicht in 
den Wolken. Doch solche 


TEST 


Dinge sind durch begrenz- 
te Randomisierung oder 
auch einfache Abfragen 
kontrollierbar. 

Wer allerdings Falsch- 
farben haben möchte, 
dem kann das Programm 
auch helfen: Mit den seit- 
lichen Cursor-Tasten 
kann man einen bestimm- 
ten Bildteil auswählen 
(Sonne, Gras, Himmel, 
Wolken, Blüten usw.), 
dies Bildteil blinkt dann 
kurz auf. Mit den verti- 
kalen Cursor-Tasten ro- 
tiert man dann durch 
die 27-Farben-Palette des 
Schneider. Somit kann 
man sich also die wilde- 
sten Mars-, Mond- oder 
Tau-Ceti-Landschaften 
einfärben, ganz nach 
Wunsch und Phantasie. 

Damit sind wir schon 
bei den weiteren Features 
des Programmes ange- 
kommen: wen die ‚„schrä- 
gen” Farben stören, kann 
durch „K” (für KEEP co- 
lours) dieses unterdrü- 
cken, mit „V” (für VA- 
RYING colours) darf 
man wieder rumspielen. 


VERÄNDERN ODER 
ÜBERMALEN - ALLES 
IST MÖGLICH 


Berührung der Cursor- 
Tasten oder einfach EN- 
TER stoppt die Bilder- 
zeugung, man kann dann 
ruhig beliebig lange an- 
schauen. Im Vorspann 
fragt das Programm, ob 
man einen Screen auf 
Tape (,T“) oder Disc 
(„D“) speichern möchte, 
„8“ im Programm erlaubt 
dies und Eingabe eines 
Kennbuchstaben (A bis 
Z) schaufelt dann rüber; 
Einladen eines gespei- 
cherten Bildes ist möglich 
mit „L‘“, gefolgt vom 
Kennbuchstaben. Etwas 
besondes Hübsches: Das 
Speicherformat ist kom- 
patibel zum GRAMA 
Grafik-Master-Malpro- 
gramm von Vortex (siehe 
Schneider aktiv 10/85). 
Dort lassen sich also die 


Bilder einladen und dann 
nach Wunsch verändern, 
ergänzen oder übermalen. 
Ganz hervorragend geht 
das, sogar die Übergabe 
der INK-Nummern in den 
„Gaps“ des Bildschirm- 
speicher (die restlichen 
48 Bytes pro Schirmzei- 
le, z.B. &CDDO bis 
&C7FF usw.) ist iden- 
tisch und funktioniert 
ganz ausgezeichnet. Mit 
der im Grafik-Master ent- 
Hardcopy-Routine sind 
auch die abgebildeten 
Ausdrucke auf dem Oki- 
mate 20 entstanden (al- 
lerdings in 16 Farben!), 
aber auch Besitzer von 
EPSON-Druckern (oder 
Kompatiblen) gehen leer 
aus, zwar nur in Schwarz- 
Weiß, aber immerhin ist 
auch das ganz nett. BA- 
SIC-Programmierern ste- 
hen die abgespeicherten 
Screens zur Verfügung 
mit folgender Zeile: 


Schmidt- 
Soft 


präsentiert: 


Das universelle Büro 
für den Joyce 8512 
Anwenderfreundlich, Menuegesteuert 


EB Lieferscheine 
EM Rechnungen 
EB Mahnungen 


EM Kunden-Verwaltung 

EM Kreditoren-Verwaltung 
EB Liste drucken 

EM Lagerverwaltung 

EM Zahlungen buchen 

EM Rechnungen buchen 
EM Provisions-Abrechnung 


Alles auf einerDiskette 
für DM 199,— 


Händleranfragen erwünscht 


Schmidt-Soft Handelsgesellschaft mbH 
Blumenstr. 15, 5600 Wuppertal 1, 
Telefon 0202/432030 + 437743 


Zeilen-Nr. Mode 0:LOAD 
“SCREENX“: FOR i=0 
TO 15:INK i,PEEK 
(61152+1): NEXT 

Sie lassen sich so in an- 
dere BASIC-Programme 
einbinden oder mit z.B. 
Tascopy etc. auf einen 
Printer dumpen. 

Der Autor Brian James 
erlaubt die Nutzung sei- 
ner Bilder in Anwendun- 
gen oder Ausstellungen 
ohne Copyright-Gebühr, 
bittet allerdings um Aner- 
kennung des LANDSCA- 
PE UTILITY und seines 
Namens in solchen Fällen. 
Recht so, in uns allen 
schlummert doch ein Pro- 
grammierer und wir 
wollen auch die „Früchte 
unserer Arbeit‘ genießen. 
Ach ja, Copyright: Das 
Programm ist völlig unge- 
schützt und kann mit 
Filexopy unter CP/M 
übertragen werden. Der 
Autor kennt aber alle Be- 
sitzer seines Programmes, 
denn es ist nur bei ihm 
persönlich und direkt zu 
beziehen (Adresse s.u.). 
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Wer kann dieses Pro- 
gramm nutzen? 

1. Jeder, der Spaß hat 
an den Grafik-Fähigkei- 
ten seines Schneider 
(läuft auf allen CPC-Mo- 
dellen). 


2. Jeder Maschinen- 


\ 
— 


vr 


sprache-Fan, der mit ei- 
nem Monitor ins Pro- 
gramm einbrechen und 
noch was lernen will. 

3. Jeder Programmie- 
rer von Adventures mit 
Grafik, dem die Grafik- 


erstellung immer viel zu 


Rechner mit XT-Mainboard 256 Colorkarte. 
1 Disk Drive a 360KB, deutsche Tastatur. 


ICO 720 2695.— 
wie ICO 360, jedoch mit 2 Disk Drives mit zu- 
sammen 720KB. 
ICO 20 MB 1339, 
wie ICO 360 jedoch mit 22 MB-Festplatte. 
22-MB-Festplatte 1449.— 
mit Controller und Kabel (XT). 

339.— 


XT-Mainboard 256 
499.— 


8088 CPU 8 Slots, 256 K-RAM. 


XT-Mainboard 640 


wie XT/MB 256 aber m. 640 KB-RAM bestückt. 


TEST 


lange dauert oder der 
kein ‚‚malerisches‘‘ Talent 
zu haben glaubt. (Übliche 
Kompressoren kompak- 
tieren den Screen-Inhalt 
meist auf weniger als die 
Hälfte des Speicherplat- 
zes). 

4. Eine besonders reiz- 
volle Anwendung bietet 
sich Computer-Verkäu- 
fern, um dies als De- 
monstrations-Programm 
ständig z.B. im Schaufen- 
ster laufen zu lassen, 
denn wer hat schon so et- 
was. Ein echter „Eye- 
Catcher‘“! Kommerzielle 
Anwendungen bedürfen 
allerdings der Erlaubnis 
des (weit weg wohnen- 
den) Autors. 

5.  Clubausstellungen 
können damit belebt wer- 
den. 

6. Die dem Computer 
unverständig gegenüber- 
stehende Umgebung kann 
etwas zu sehen kriegen, 
was alle verstehen. Ich 
denke da an Ehefrauen 
und sonstige Verwandt- 
schaft. (Wer interessiert 
sich schon dafür, daß Sie 
als Computer-Fan end- 
lich den BASIC-Lader des 
headerlosen Files „XYZ“ 
oder das Binär-Ladepro- 
gramm von „Elite‘“ ge- 


XT-Multifunktionskate 219.— 


1xCentr., 1xRS 232, 1xGame, 1x Uhr u. Platz 
für 384 KB-RAM. er 
239.— 


XT/Multi 1/0 Karte 


wie Multif. Karte aber m. Disc Interf. statt RAM. 


knackt und die Cassette 
auf Disc gezogen haben?) 
7. Auch Grußbotschaf- 
ten (Weihnachten mit 
Schneelandschaft!) kann 
der CPC-User endlich 
selbst herstellen, da sieht 
der Print-Shop vom C64 
oder Apple ganz blaß aus. 
Fazit: Das muß man 
gesehen haben, um es zu 
glauben! Kaufen!! In 
dieser Qualität gibt es 
dieses Programm nur für 
den Amstrad/Schneider, 
die Version für den 
Speccy (ZX Spectrum 
und Sinclair) ist dagegen 
deutlich magerer. 


FAZIT 

Kritik: Ein bißerl kit- 
schig siehts manchmal 
schon aus, und wer Whis- 
ky, Bagpipes and Drums 
oder Schottland über- 
haupt nicht mag, der 
lasse die Finger davon 
und kaufe sich ’nen 
C128. 

Einzige Bezugsquelle: 
Dr. Brian James 
21 Lamond Place 
Aberdeen AB2 3UT 
SCOTLAND 
Preis: 23,— englische 
Pfund (geht prima mit 
eurocheque!) 

(Hartmut Adelsberger) 


ICO AT-1 


AT kompatibler Rech. mit AT-Mainbd. 640, 
Colorkarte, 1,2 MB-Floppy, deutsche Tastatur. 


ICO AT-20 


4399. 
wie AT-1, jedoch mit zusätzi. 20 MB-Harddisk 


Monochrome-Karte «tan 189.— 
Color-Grafic -Karte (xtıar)_159.— 
XT-Disc-Controller 99.— 
Centronicsinterface (xriarı 89.— 
256 KB-RAM-Chipsatz 99.— 
64-KB-RAM-Chipsatz 39.— 


Maus (mechan.) 
249.— 


7 Monate Garantie. 


AT-Mainboard 640 1699. 
Hauptplatiner mit 640-K-RAM, 80286 CPU, 
AT-kompatibel. 


AT-Multifunktion 666. 


Platz f. 2,5 MB-RAM, 2xRS 232, 1xCentr. Port. 
Seriell-Parallel-Karte «xr,ar) 149.— 
EGA-Karte 749.— 
AT-Hard- 

Floppykontroller || ® 

749.— 


Hard-, Software 
Viertstraße 3-26 
6233 Kelkheim 

© (06198) 9069 


Versand erfolgt per NN 
oder Vorkasse. 
Händleranfragen erwünscht. 
IBM-Info 3/86 für 1.— Porto. 


A 
© Emm 1 
NM) no 
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JOYSTICKS-NICHT 
IMMEREIN _ 
FREUDENKNÜPPEL 


Wem ist es noch nicht passiert? Da 
ist man gerade im schönsten Spiel, 
da versagt doch glatt der Joystick. 

Will man sich einen Joystick für 
seinen Computer anschaffen, steht 
man vor einem riesigen Angebot 
und weiß nicht weiter. Stellt man 
als Unterschied doch nur die Preise 
fest. 


rn. 


in Acryl-Technik 


Doch solche Kriterien wie Stabi- 
lität, Handhabung, Schnelligkeit 
und Feuertasten kann man leider 
erst immer zu Hause testen. So 
kommt es nicht selten vor, daß der 
Teuerste nicht unbedingt der Beste 
sein muß. 


"WAS SIND JOYSTICKS UND 


Im Grunde sind Joysticks lediglich 
Eingabegeräte, die das Keybord er- 
setzen sollen. Der Griff läßt sich 
nach oben, unten rechts und links 
bewegen, so daß man ähnlich wie 
bei der Maus das zu bewegende Ob- 


: durchsichtig 


jekt an jede beliebige Bildschirmpo- 
sition bringen kann. 

Das technische Prinzip des Joy- 
sticks ist denkbar einfach. So sind 
im Gehäuse meistens fünf Schalter 
auf einer Platine befestigt, die bei 
einer entsprechenden Bewegung des 
Joysticks angesteuert werden und 
dadurch einen Impuls auslösen. Die- 


nicht gespielt werden können oder 
man muß sich eben den Schneider- 
Joystick oder einen Adapter, der 
mittlerweile schon von mehreren 
Herstellern angeboten wird, zule- 
gen. 


INDIVIDUELLE LEISTUNG 


Joysticks unterscheiden sich nicht 
nur durch Preise, sondern in erster 
Linie durch Ihre Handhabung und 
Reaktion. Allgemein gesehen kann 
man jedoch nicht sagen, der Joy- 
stick ist gut und der ist schlecht. 
Man muß hierbei beachten, wofür 
der Einzelne den Joystick gebrau- 
chen will. Gebraucht man den Joy- 
stick nur für ein Graphikprogramm, 
so ist man höchstens auf Schnellig- 
keit angewiesen und nicht auf die 
Reaktionsschnelligkeit der Feuer- 
knöpfe. Will man jedoch vor allem 
mit dem Joystick spielen, sollte 
man den letzten Aspekt und vor al. 
lem die Stabilität nicht übersehen. 
Im folgenden können Sie nach- 
lesen, welche vier Joysticks beson- 
ders zu empfehlen sind: 
1. Schneider JY-1 von Schneider, 
Preis ca. 50 DM 
Der Joystick wird durch vier Saug- 
knöpfe am Boden befestigt. Auffal- 
lend ist vor allem sein ergonomi- 
scher Griff. Durch eine an der Seite 
angebrachte Buchse ermöglicht er 
den Anschluß eines zweiten Joy- 
sticks. Leider hat er nur einen Feu- 
erknopf. 
2. Famous Red Ball 
Preis ca. 140 DM 


von Wico, 


# Auffallend bei diesem Joystick ist 


ser Impuls wird wiederum vom 
Computer aufgenommen und löst 
dann die Bewegung auf dem Bild- 
schirm aus. 

Die Tastatur wird im übrigen 
dauernd abgefragt und kann dann 
auch dementsprechend reagieren. 


CPC UND JOYSTICKS 


Am CPC wird der Joystick an der 
Rückseite des Keyboards an einem 
9-poligen Anschluß (Aufschrift 
Userport) angeschlossen. Leider ist 
es nur möglich, einen Joystick an- 
zuschließen, so daß Spiele, für die 
zwei Joysticks benötigt werden, 
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die Stabilität. Er ist äußerst robust 
und ist all denen zu empfehlen, die 
ihren Joystick oft strapazieren. 

3. Competition Pro von Dynamics, 
Preis ca. 70 DM 

Dieser Joystick der Firma Dyna- 
mics ist ein sehr robuster Joystick, 
der mit zwei Feuerknöpfen ausge- 
rüstet ist. Der einzige Nachteil be- 
steht darin, daß er keine Saugknöp- 
fe, sondern Gummifüße, die sehr 
leicht rutschen, besitzt. 

4. Quick-Stick von NCE, 

Preis ca. 15 DM 

Dieser Joystick, der durch sein 
enormes Preis-Leistungsverhältnis 
auffällt, ist einer der besten Joy- 
sticks, die mir bekannt sind. Er ist 
mit einem ergonomischen Griff, 
vier Saugknöpfen und drei (!!) Feu- 
erknöpfen ausgerüstet (Basler). 


JOYSTICK-MAL 


TIPS & TRICKS 


SELBST 
GEBAUT 


Bei vielen Grafik-Pro- 
grammen, z.B. Profi-Pain- 
ter von Data-Becker wird 
der Joystick eingesetzt. 
Leider ist es damit 
schwer möglich, einen 
Einzelschritt für genaue 
Zeichnungen durchzufüh- 
ren. Ich vermisse in sol- 
chen Programmen eine 
ständige Anzeige der 
Koordinaten bezüglich 
dem linken unteren Eck- 
punkt sowie relative 
Koordinaten bezüglich ei- 
nes gesetzten Anfangs- 
punktes (z.B. Kreismittel- 
punkt). Im Profi-Painter 
weiß man nie, wann ein 


Kreis oder noch eine El- 


lipse vorliegt. 

Nun zur Schaltung: 
Die äußere Ercheinung 
kann, wie in Bild 2 ge- 
zeigt, aussehen. Die klei- 
ne und sehr billige Elek- 
tronik wird in Bild 1 ge- 
zeigt. In der Schaltung 
sind die Anschlüsse mit 
den Nummern des Joy- 
stick-Steckerss gekenn- 
zeichnet. Die Belegung 
findet man im Handbuch 
zum CPC. Die inneren 
Tasten des Kästchens sen- 
den immer genau einen 
Impuls ab, gleichgültig 
wie lange diese Taste ge- 
drückt wird. Dies wird 
dadurch erreicht, daß 


Stückliste: 


Bezeichnung Anzahl 


SN 7400 3 
1N 4151 
Drucktaster. EIN 
Gehäuse 

Stecker 9-polig 
Kondensator 

560 nF 4 
Kondensator 47nF 4 
Widerstände 17 
Stecker und Buchse 

für 5V-Versorgung 1 
Im 9-pol. 
Flachbandkabel 


Do 


15 cm Lötzinn (bei geübten Lötern genügen auch 5 cm) 


durch den Tastendruck 
ein FLIP-FLOP gesetzt 
wird. Beim Rücksetzen 
wird dann der notwendi- 
ge Steuer-Impuls erzeugt. 


Der COMMON-Ausgang 
des CPC hat einen offe- 
nen Kollektor, daher 


braucht man einen 1k-Wi- 
derstand zu +5V. Die 
Dioden dienen zur Ent- 
koppelung der Richtun- 
gen oben, unten, etc. Die 
einzigen aktiven Bauteile 
sind drei SN 7400 NAND- 
Gatter-IC. Diese dienen 
dann als RS-FLIP-FlOP 
bzw. als Monoflop. Die 
5V-Versorgung kann 
beim CPC über einen 


Zwischenstecker zur Ver- 
sorgungsleitung vom Mo- 
nitor zum Brett geholt 


werden. : Falls die 
Garantie abgelaufen ist, 
kann man auch eine ent- 
sprechende 5V-Buchse 
ins Brett einbauen. Man 
sollte aber eine auswech- 
selbare Steckverbindung 
wählen. 


So, nun wünsche ich Euch 
einen heißen Lötkolben 
und anschließend mehr 
Spaß mit Euren Grafik- 
Programmen. 

(Reinhard Ritter) 


1N4151 


17 I > 1;2;3 oder 4 


y 4 5N 7488 


4 mal- fuer ohen; unten;links und rechts 


"52 fuer Einzelschritt 


/Feuer 


6 
1Na151 


SSRERENPVEE REN 


nur einmal 


51 fuer Normalbetrieb (es koennen auch die Schalter eines Joystick verwendet 


Bild: Die Schaltung und die 
Bestückung 


\ 


Bauen Sie kleine Drucktaster 


- in ein Kästchen. Die zugehöri- 


ge Elektronik findet darin 
ebenfalls Platz. 

Die äußeren Tasten dienen 
dem Normalbetrieb, die inne- 
ren den Einzelschritten. 

Der Feuerknopf sollte nicht 
in der Mitte sein. 


Einzelpreis Gesamtpreis 
1,10 DM 3,30 DM 
0,30 DM 1,50 DM 
1,00 DM 9,00 DM 
5,00 DM 5,00 DM 
9,00 DM 9,00 DM 
0,30 DM 1,20 DM 
0,30 DM 1,20 DM 
0,10 DM 1,70 DM 
2,00 DM 2,00 DM 
1,50 DM 1,50 DM 


werden.) 


RE REINER Cr 


Zweiter Teil von Teil II 
von F.W.’s COMPUTER- 
KURS: 


- Die Diskette an sich oder 
außerdem auch 


Die in der letzten Folge 
en Fragen können 
eider nicht beantwortet 
werden. Wie gesagt, bzw. 
geschrieben, es waren 
keine echten Fragen, 
sondern gestellte. Reinge- 
fallen! 

Jetzt IN MEDIAS RES 
wie die Römer (s. ROM- 
READ ONLY MEMO- 
RY) sagen. Wie bitte...? 
Ach so, ja, im Wein ist 
auch etwas. Dieses 
Sprichwort besagt aber: 
„Nun mach schon los, 
ich hab meine Zeit 
schließlich auch nicht ge- 
stohlen.”’ Man sieht da- 
ran, daß die ollen Römer 
einen wahrhaft ökonomi- 
schen Wortschatz hatten. 
Von den Römern zu den 
Griechen ist es ja nur ein 
kleiner Sprung und damit 
wäre der Übergang in die 
heutige Folge geschafft. 
Dort nämlich, nicht im 
alten Hellas, wurde die 
Diskette erfunden, was 
ihr hoffentlich alle noch 
aus der letzten Folge in 
Erinnerung habt. 

Er reicht allerdings 
nicht aus, zu wissen, wo 
die Diskette herkommt 
und wo sie hingeht, man 
muß auch wissen, was sie 
in der Zwischenzeit 
macht. Damit Ihr das 
Aufzeichnungsprinzip 
versteht (hinterher könnt 
Ihr es dann mir erklären) 
bringe ich Euch einen 
Vergleich, natürlich gra- 
tis. Jawohl, wo gibt es so 
etwas sonst noch, Kostet 
nichts. Deshalb lautet un- 
ser erster Merksatz für 
heute: 

Vieles von dem, was man 
bei F.W. lernen kann, ist 
umsonst. 

Gibt’s was Schöneres? 
Ach so, der Vergleich. Ja 
also: Stellt Euch bitte 
mal eine Torte vor, die in 


GLOSSE 


FW’: WISSEN 
MUSS MAN ES! 


mehrere gleich große 
Stücke durch die Mitte 
geteilt wurde. Diabetiker 
dürfen bitte den nachfol- 
genden Text übersprin- 
gen. Die einzelnen Tor- 
tenstücke werden von der 
Spitze aus in mehrere 
Querringe (Kreissegmen- 
te) aufgeteilt. 

Nun werdet Ihr Euch 
fragen, warum man eine 
leckere, na sagen wir mal 
Sahnetorte, derartig zer- 
fetzen soll. Ganz einfach: 
Komplett und heil wer- 
det Ihr sie nie in die Dis- 
kettenstation bekommen. 
Und warum soll eine Tor- 
te in die Diskettenstation? 
werdet Ihr wiederum 
fragen. Aber da seid 
Ihr bei mir an den 
Falschen geraten. Eure 
Fragerei geht mir auf die 


——— 


Nerven. Holt die Torte 
halt wieder raus, ist so- 
wieso ein blödes Beispiel, 
obwohl es jeder bringt. 

Die Industrie hat dies 
auch erkannt und nimmt 
statt Torten lieber flache 
Scheiben aus magnetisier- 
barer Folie, die man aller- 
dings nicht essen kann, 
da sie unbekömmlich 
sind. Wie gehabt resul- 
tiert daraus ein Merksatz: 
Disketten sollten nur 
dann gegessen werden, 
wenn sie als Beispiel für 
Torten oder umgekehrt 
und sowieso gelten. 

Wir dürfen an dieser 
Stelle wieder unsere Dia- 
betiker und andere aus- 
ländische Freunde begrüs- 
sen. Und da wir gerade 
dabei sind, ein spezieller 
Gruß (winke winke) geht 
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an K.P. Lindlar, der mir 
immer ein leuchtendes 
Beispiel hätte sein kön- 
nen. 

Disketten haben unter- 
schiedliche Größen. 
Macht ruhig einmal den 
Versuch, eine Dreieinhalb 
Zoll oder eine Dreizwei- 
viertel Zoll-Diskette in 
die Schneider Drei-Zoll 
Station zu schieben. 
Klemmt ein wenig, und 
man muß schon mit dem 
Hämmerchen nachhelfen. 
Da flutscht mir schon der 
nächste Merksatz aus der 
Feder (das ist Poesie, 
was?): 

Entscheidendes Merkmal 
für die Gebrauchsfähig- 
keit einer Diskette ist ıh- 


re Größe. Vor allem 
dann, wenn sie nicht 
paßt. 


Beim Kauf also unbe- 
dingt auf die Größe ach- 
ten, was nicht ganz so 
einfach ist. Nur die Fünf- 
einviertel Zoll Diskette 
steckt in einer Pappe, die 
leicht aufzureissen ist, 
um die Magnetfolie mit 
dem Lineal nachzumes- 
sen. Die beiden kleineren 
Disketten sind in einer 
soliden Plastikhülle, die 
sich dem Käufer stand- 
haft widersetzt. Gut, daß 
die meisten Computer 
das Programm 
„FORMAT.COM“ anbie- 
ten, mit dem das Disket- 
tenformat vermessen 
werden kann. Zweifler, 
da gibt es viele, halten die 
korrekte Größenvermes- 
sung für unnötig, wenn 
der Verkäufer an Eides 
Statt versichert, es hande- 
le sich um eine Drei Zoll 
Diskette. Wie sehr man 
dem Handel jedoch miß- 
trauen muß, soll ein war- 
nendes, selbsterlebtes 
Beispiel zeigen. 

Ich kaufte mir jüngst 
das Programm Wordstar 
und verlangte ausdrück- 
lich eine Drei Zoll Disket- 
te. Das amüsierte Lächeln 
des Verkäufers, als ich 
mir die Eidesstattliche 
Versicherung bezüglich 


GLOSSE 


der Größe geben ließ, 
hätte mich warnen sollen. 
Zu Hause überprüfte ich 
natürlich sofort mit dem 
Programm 
„FORMAT.COM” die 
Größe. Es war zwar die 
richtige, Drei Zoll wie be- 
stellt, aber die Diskette 
war leer. Soviel zur Ehr- 
lichkeit des Handels und 
dazu der Merksatz: 
Disketten sind nur dann 
leer, wenn nichts drauf 
ist. Ist aber etwas drauf, 
sind sie noch lange nicht 
voll. i 


WARUM 
DIR UND 
NICHT MIR? 


Was, warum und wie- 
viel auf einer Diskette ist, 
erfährt man unter dem 
etwas blöden AMSDOS- 
Befehl ,‚CAT’”. Bilöde 
deshalb, weil der Befehl 
gar nichts mit einer Kat- 
ze zu tun hat. Sinn ergibt 
da eher der CP/M Befehl 
„DIR”, denn tatsächlich 
gehören ja alle Daten auf 
der Diskette Dir. Oder 
mir, wenn ich den Befehl 
eintippe, aber dann müß- 
te es ja „MIR“ heißen, 
was es aber nicht tun 
will. Im Grunde genom- 
men ist „DIR“ also ge- 
nauso unsinnig wie 
„CAT”, hat aber Wir- 
kung. Alle Files werden 
aufgelistet. „FILES“ 
wird, nebenbei bemerkt 
als „FEILS“, nicht etwa 
„PFEIL“, ausgesprochen, 
aber nicht geschrieben, 
weil sich sonst jemand 
findet, der meckert, der 
sogenannte oder auch 
Lektor. Ein File (Pro- 
gramm, Datensatz) hat 
vorne acht Buchstaben, 
einen Punkt und hinten 
drei Buchstaben. Ein 
Pfeil dagegen hat gar kei- 
ne Buchstaben, sondern 
gehört zum Flitzebogen 
eines Indianers. Der Indi- 
aner wiederum hat hinten 
vier Buchstaben. 

Am meisten interessie- 
‚ren uns die hinteren 


Buchstaben (wir sind 
jetzt wieder beim File, 
lieber Leser). Diese drei 
Zeichen werden EXTEN- 
SION genannt und unter- 
liegen einer gewissen Ord- 
nung, um die Daten zu 
kennzeichnen. Also BAS 
für BASIC, BIN für 
BINAER, TXT für TEXT 
und MST für MIST-TIPP- 
FEHLER. Die Zeichen 
vor dem Punkt stehen zur 
freien Namensvergabe zur 
Verfügung und der Platz 
hinter diesem Satz für ei- 
nen Merksatz: 

Während vor dem Punkt 
jeder machen kann, was 
er will, sollte hinter dem 
Punkt zu sehen sein, was 
er macht. 

Machen wir doch ein- 
mal den Versuch und 
speichern das Beispielpro- 
gramm des Kurses ab. 
Der Befehl lautet: SAVE 
GAENSEFUESSCHEN 
OBEN SPITZE.BAS. Das 
Ergebnis ist ein geradezu 
klassischer SYNTAX 
ERROR, weil das Be- 
triebssystem mit dem 
Wort Gänsefüßchen 
nichts anfangen kann. 
Probiert’s mal folgender- 
maßen: SAVE’”SPITZE. 
BAS. Klappt gut, was? 
Habe ich doch gesagt. 
Übt das ein paar Mal, be- 
vor Ihr die Fragen aus- 
knobelt. 


Folgende Diskettenbefeh- 
le sind möglich: 

a) Speichern (SAVE) 

b) Laden (LOAD) 

c) Hau ab (RUN) 


Format ist: 

a) wenn man keins hat 

b)mal zu groß, mal zu 
klein 

c) irgendsoetwas für Dia- 
betiker 


Wer kann mir zehn Mark 
leihen (man kann’s ja mal 
versuchen) 

a) warum denn nur zehn 
b) aber nur zinslos 


c)warum denn leihen, 
schenken macht 
Freude F.W. 


FW’ BEANT- 
WORTET LESER 
FRAGEN 


R. Schumplig, München 
fragt: 

Was hat der Schneider 
User davon, daß Amstrad 
die Sinclair Produktion 
aufgekauft hat? 


F.W. antwortet: 

Das Angebot für den 
Freizeitbereich wird er- 
heblich vergrößert. Der 
enorme Lagerbestand der 
Sinclair Computer wird 
in folgenden Versionen 
angeboten: Der OL 


kommt mit einem Unter-: 


bau von zwei Gelenk- 
rolle als Skateboard in 
die Geschäfte, der ZX 
81 erlebt eine Renais- 
sance als Frühstücksbrett- 
chen und der SPEC- 
TRUM wird als IBM- 
Kompatibler Computer 
weiterverkauft. Als kom- 
patibel wird hier gewer- 
tet, daß er, ebenso wie 
sein Vorbild, mit elek- 
trischem Strom, mensch- 
lichem Anwender und 
unmenschlicher Tastatur 
läuft. 


Prof. Kokelores, Marburg, 
fragt: 

Neulich warb das Pro- 
spekt einer Datenbank 
mit sieben Millionen 
Literaturstellen für den 
Wissenschaftler. Und das 
alles mit der Eingabe nur 
eines Keywords. Soll ich 
das glauben? 


F.W. antwortet: 
Glaubhaft ist das schon, 
aber überlegen Sie, ob es 
sich lohnt. Wenn Ihnen 
nach der Eingabe eines 
Wortes gleich siebenMil- 
lionen Texte genannt 
werden, dann fängt die 
Suche doch erst richtig 
an. Wollen Sie das? 
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Herr Schwatz-Willing, 
Bonn, fragt: 

Nachdem ich mir eine 
serielle Schnittstelle 
kaufte, einen teueren 
Akustikkoppler und ein 
Terminalprogramm zu- 
legte, meinte mein Fach- 
händler, es sei ganz 
zweckmäßig, nunmehr 
auch ein Telefon zu be- 
antragen. Ehrlich, oder 
will der mich neppen? 


F.W. antwortet: 
Langjährige und kostspie- 
lige Versuche der Bundes- 
post haben bewiesen, 

daß es ohne Telefon nicht 
geht. Momentan nähern 
sich die Testserien dem 
Ende, die klar beweisen, 
daß es mit Telefon auf- 
grund der Netzüberla- 
stung auch nicht viel bes- 
ser geht. 


. Derwall z.Zt. Türkei, 

ragt: 
Nach nunmehr einem 
halben Jahr ist mein 
SCHNEIDER-Programm 
speziell für Jogger, bzw. 
Marathonläufer fertig. 
Der Sportler gibt nur die 
Puls- und Atmungsfre- 
quenzen ein und aufgrund 
der gespeicherten persön- 
lichen Leistungsdaten 
werden vom Computer 
Trainingsratschläge er- 
teilt, um die Bestleistung 
zu steigern. Bitte testen 
Sie einmal das Programm 
und sagen Sie mir Ihre 
Meinung. 


F. W. antwortet: 

Der Praxistest haute lei- 
der nicht hin, sondern 
ich, da ich über das Ver- 
längerungskabel zur 
Steckdose gestolpert bin. 
Außerdem fand ich es 
unpraktisch beim Joggen 
einen CPC mit mir her- 
umzuschleppen. 


TIPS & TRICKS 


DATE-COM 
ZWECKENT- 
FREMDET 


Es gibt eine ganze 
Menge langer Basic-Pro- 
gramme, die zu einem 
Datum den gewünschten 
Wochentag berechnen. 
Alle Besitzer eines CPC- 
6128 können es sich un- 
ter CP/M Plus einfacher 
machen. Dort existiert 
das Programm DATE. 
COM, mit dem man den 
internen Timer und das 
Datum einstellen kann. 


DATE.COM berechnet 
aber auch als Servicelei- 
stung den richtigen Wo- 
chentag mit. Und das ist 
auch schon der ganze 
Trick. Sie rufen DATE. 
COM mit dem gesuchten 
Datum auf: 


A>DATE 09/15/86 11: 
11:11 


Wie Sie sehen, muß das 
Datum im amerikanischen 
Format eingegeben wer- 
den: Monat/Tag/Jahr. 
Die danach folgende Uhr- 
zeit kann aber nicht ent- 
fallen, weil DATE.COM 
sonst eine Fehlermeldung 
ausgibt. 


Durch erneuten Aufruf 
von DATE.COM, diesmal 
ohne Parameter, erfahren 
Sie den entsprechenden 
Wochentag: 


A>DATE 


Mon 09/15/86 11:11:15 


CP/M 
SYSTEMSTACK 


In jedem Maschinen- 


programm unter CP/M 
sollte man den Z80-Stack 
auf einen definierten Wert 
setzen. Bevor Sie aber 


nun mit DS und LXI SP 
hantieren, finden Sie die 
wohl kürzeste und gleich- 
zeitig optimale Lösung 
für diese Programmierauf- 
gabe: 


BDOS EQU 0005H 
START LHLD BDOS+1 


SPHL 


Dadurch laden Sie das 
SP-Register mit einem 
Wert, der direkt unter- 
halb des BDOS liegt. So 
haben Sie den maximal 
möglichen Speicher für 
Ihr eigentliches Pro- 
gramm frei. 

Und wie man den ak- 
tuellen Wert des Stack- 
pointers bei ausschließli- 
cher Verwendung von 
8080-Mnemonics be- 
kommt? 

Kein Problem: 


MERKE DS 2 
START LXI H,O 
SHLD MERKE 


Nach dem Aufruf die- 
ser Routine steht der In- 
halt von SP in der Spei- 
cherstelle MERKE. Das 
HL-Register ist durch die 
Befehle verändert wor- 
den. 


WORDSTAR- 


GEHEIMNISSE 


Wohl jeder WordStar- 


Anwender kennt die 
Funktionen "Q’F zum 
Suchen und "Q’A zum 
Ersetzen von Texten. 
Doch es gibt da noch 
einige sehr wenig bekann- 
te Optionen. 


Denn ähnlich, wie man 
bei CP/M den Stern und 


das Fragezeichen als Jo- 
ker (Wildcard) bei Datei- 
namen benutzen kann, 


versteht Find/Replace 
auch einige besondere 
Symbole. Sobald nach 


dem Suchstring gefragt 
wird, kann man jede be- 
liebige Stelle dieser Zei- 


chenkette folgende Co- 


des einsetzen: 

“A (Eingabe als "P’A, 
Merkhilfe „All Sym- 
bols”): Dieser Code ist 
identisch mit "A, nur daß 
nur Zeichen gefunden 
werden, die keine Buch- 
staben und keine Zahlen 
sind. Damit fallen Hans, 
Haus, Ha3s etc. weg. Nur 
Ha%s würde gefunden. 


“0 Eingabe als "P’O, 
Merknilfe '„Others”): 
Hiermit werden alle 
Buchstaben gefunden, die 
nicht identisch sind mit 
dem, der nach °O folgt. 
Das können Sie etwa als 
Ha’Ous eingeben. Word 
Star findet alle Worte wie 
Hans, Hals, Haas, Ha%s 
und Ha3s; nur eben Haus 
nicht. 

Diese schönen zusätzli- 
chen Befehle haben aber 
den Nachteil, daß man 
nach den Druckersteuer- 


zeichen “P”S (Unterstrei- 


chen), “P”A (Breitschrift) 


und *P’O (fester Leer- 
schritt) nicht suchen 
kann. 


ANPASSUNG MIT 


FEHLERN 


Bei der von Markt & 


Technik verbreiteten An- 
passung von WordStar an 
CP/M 2.2 für den Schnei- 
der CPC-464/664 hat sich 
ein Fehler eingeschlichen, 
der bei CP/M Plus auf 
dem CPC-6128 nicht auf- 
tritt. 


Vielleicht tritt der 
Fehler ja nur bei einer 
Teilauflage von WordStar 
auf, weil Markt & Tech- 
nik den Fehler schon be- 
merkt hat. Ob Sie eine 
fehlerhafte Version ha- 
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ben, können Sie ganz ein- 
fach feststellen: Geben 
Sie vom Hauptmenü aus 
den NR-Befehl (,Pro- 
gramm aufrufen”) ein 
und warten Sie, wie der 
Computer reagiert. Fragt 
er nach dem Namen des 
zu startenden Programms, 
ist Ihr WordStar fehler- 
frei. Erscheint aber die 
Meldung: 


„Datei WS1.COM nicht 
gefunden —— Kein Pro- 
gramm kann aufgerufen 
werden, bis WS1.COM 


verfügbar ist.” 


Dann steckt in Ihrem 


. Textprogramm noch ein 


Fehler. Dieser läßt sich 
aber ganz einfach und 
sogar ohne irgendwelche 
Bytezaubereien und Pat- 
ches beheben, indem Sie 
das Hauptprogramm WS. 
COM in WS1.COM (oder 
den Namen, der bei der 
Fehlermeldung angege- 
ben ist) umbenennen: 


A>REN WS1.COM=WS. 
COM 


Ab diesem Zeitpunkt 
sollte der R-Befehl ohne 
Schwierigkeiten funktio- 
nieren. 


_  WORDSTAR 
GIBT GAS 


Im allgemeinen be- 
trachtet man WordStar 
als recht ‘gemächliches 
Textprogramm. Doch mit 
kleinen Tricks kommen 
schier unglaubliche Ge- 
schwindigkeiten zustan- 
de. 

So bei der Ersetz- 
Funktion "Q’A. Diese ar 
beitet mit der Option 
„NG” (Tausche ohne 
Frage und suche im ge- 
samten Text) wirklich 
äußerst zäh und baut 
auch vor jedem Ersetz- 
vorgang den Bildschirm 
neu auf. Das kostet ent- 
setzlich viel Zeit. Betäti- 
gen Sie aber unmittelbar 
nach der Eingabe von 


„NG” und ‚„Enter” eine 
der Cursortasten, verzich- 
tet WordStar seltsamer- 
weise auf den ständigen 
und meist unnötigen 
Bildschirmaufbau und 
wechselt alle Zeichen in 
Sekunden oder sogar Se- 


kundenbruchteilen aus. 


WORDSTAR 


UMFORMATIERT 


Komfortabel ist die Ar- 
beit mit WordStar nicht 
gerade, aber manchmal 
überrascht doch die Lei- 
stungsfähigkeit dieses 
Textprogramms. 


Wollen Sie beispiels- 
weise 65 Zeichen pro Zei- 
le auf 40 Spalten umfor- 
matieren, müssen Sie kei- 


TRIVIAL PURSUIT- 


TEST 


nesfalls andauernd "B be- 
tätigen. Es geht viel einfa- 
cher mit der kaum be- 
kannten und noch selte- 
ner benutzten Wiederho- 
lungsfunktion von Word- 
Star: "Q’Q. Um also ei- 
nen Text neu zu forma- 
tieren, geben Sie folgen- 
de Tastenkombinationen 
ein: 


Oder ım Klartext: 


Control-Q Control-Q 
Control-B 1 
Sie können die Forma- 
tierung übrigens jederzeit 
durch Drücken der Leer- 
taste abbrechen. 
(Martin Kotulla) 


STARK 
HITVERDAÄCHTIG 


Aus England, von der Fir- 
ma Domark, kommt die 
Ankündigung eines neuen 
Computerspiels, das 
schon als Brettspiel gro- 
ßen Anklang auch in 
Deutschland fand: Trivial 
Pursuit. Falls Sie es wirk- 
lich noch nicht kennen 
sollten, sei hier kurz er- 
klärt, worum es dabei 
geht. Trivial Pursuit ist 
eine Art Quiz-Spiel für 2 
bis 36 Spieler, mit Fra- 
gen aus den verschieden- 
sten Wissensbereichen 
wie z.B. Kunst und Lite- 
ratur, Natur und Wissen- 


schaft, Geschichte, 
Unterhaltung usw. 
Welche Frage man er- 


wischt, hängt vom Zufall 
(dem Würfel) ab. Interes- 
sant ist dabei der Auf- 
bau des Spielplans in 
Form eines Rades mit 
Speichen. So hat man im- 
mer die Möglichkeit, in 
mindestens zwei verschie- 
‚denen Richtungen zu zie- 


hen. Wenn man nicht ge- 
rade auf ein Freifeld ge- 
langt, muß man die Frage 
as dem entsprechenden 
Wissensgebiet richtig be- 
antworten, um weiterwür- 
feln zu können. Um das 
Spiel zu gewinnen, muß 
man jedoch auf jedem 
einzelnen von sechs be- 
sonders gekennzeichne- 
ten Feldern ankommen 
und dort jeweils eine Fra- 
ge aus jedem Fachgebiet 
richtig beantworten. 


Wenn Sie einmal ‚Tri- 
vial Pursuit‘ gespielt ha- 
ben, wird es Sıe nicht 
mehr loslassen. Vorausge- 
setzt, es finden sich die 
richtigen Leute, hat man 
dabei unheimlich viel 
Spaß — von den faszi- 
nierenden Fragen einmal 
ganz abgesehen. Wissen 
Sie zum Beispiel, was 
„Antrhopophagen‘“ sind, 
welche bedeutende Er- 
findung der Deutsche 


Emil Berliner gemacht 
hat, oder welchen deut- 
schen Titel der Film 
„Casablanca“ hatte? Die 
Antworten finden Sie am 
Ende des Artikels. 

Die Firma Domark be- 
kam die Lizenz für die 
Computer-Adaptation, 
weil sie — nach eigenen 
Aussagen — von allen 
Bewerbern das beste 
Konzept geliefert hatte. 
Das Spielbrett wurde an 
die Darstellung auf dem 
Computerbildschirm an- 
gepaßt. Nach jedem Wurf 
werden die erreichbaren 
Felder hervorgehoben. 
Eine kleine Figur na- 
mens T.P. übernimmt die 
Aufgabe des Spielleiters 
oder Quizmasters. Er 
würfelt für Sie, indem er 
mit Pfeilen (den typisch 
englischen Darts eben) 
auf die Zahlen 1 bis 6 


wirft. Bei akustischen 
Fragen stellt T.P. einen 
Cassettenrecorder an, 


und bei optischen Aufga- 
ben rollt eine Leinwand 
herab, auf der ein Bild 
erscheint. Das Spiel sollte 
für die ganze Familie sein. 
Deshalb entfällt Tasten- 


tipperei — alles ist per 
Joystick zu lenken. 
Programmiert wurde 


Trivial Pursuit von Ox- 
ford Digital Enterprises, 
kurz ODE, in einem 
Zeitraum von vier Mona- 
ten. ODE ist ein Team 
von Akademikern aus 
Oxford, das sich bereits 
durch sein erstes Projekt 
in England einen Namen 
gemacht hat: Maxbeth, 
ein psychologisches Ad- 
venture frei nach Shakes- 
peare.. Für das Spielfeld- 
Design wurde der profes- 
sionelle Künstler Geoff 
Quilley engagiert; aber 
auch die Programmierer 
selbst haben eine Neue- 
rung eingeführt. Trivial 
Pursuit ıst für C-64, Sin- 
lair Spectrum und die 
Schneider bzw. Amstrad 
CPCs erhältlich. Erwei- 
terungsbänder mit zusätz- 
lichen Fragen sind in Vor- 
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bereitung. Über „Uni- 
lIODE“, ein neues Lade- 
system, wird ein und die- 
selbe Cassette auf allen 
genannten Computermo- 
dellen verwendet. Man 
muß im Geschäft also nur 
die neueste Erweiterung 
zu Trivial Pursuit verlan- 
gen und hat die Garantie, 
daß diese auf dem Spec- 
trum des kleinen Bruders 
und auf dem C-64 eines 
Freundes genauso lauf- 
fähig ist wie auf dem ei- 
genen CPC. David Pringle 
von ODE ließ verlauten, 
daß die Firma noch ein 
paar Monate Arbeit in Sa- 
chen ‚Trivial‘“‘“ vor sich 
hätte. 

Trivial Pursuit ist in 
England in diesem Sep- 
tember auf den Markt ge- 
kommen, zu einem Preis 
von ca. 15 Pfund. Wer 
Englisch kann, sollte sich 
eine Cassette besorgen. 
Schneider aktiv wird sich 
um eine Testversion be- 
mühen und Sie zu gege- 
bener Zeit informieren, 
ob Domark seine Verspre- 
chungen hinsichtlich die- 
ses Programms eingehal- 
ten hat. 

Eine weitere Ankündi- 
gung von Domark für 
nächstes Frühjahr ist das 
Adventure zu dem neuen 
James-Bond-Film, das 
gleichzeitig mit dem Film 
auf den Markt kommen 
soll. Nachdem ‚,A view to 
a kill“ — ebenfalls von 
Domark — ein Erfolg 
war, darf man neugierig 
auf die neuen Produkte 
sein. 

Ach ja, Sie sind jetzt 
sicher neugierig auf die 
Antworten zu den ‚Tri- 
vial‘“-Fragen von vorhin: 


Anthropophagen sind 
schlicht und ergreifend 
Menschenfresser, Emil 


Berliner verdanken alle 
Musikfans die Schallplat- _ 
te, und der Film „Casa- 
blanca“ hieß in der deut- 
schen Fassung — natür- 
lich auch ‚Casablanca“. 
Hätten Sie’s gewußt? 
(Alwin Ertl) 


TEST 


DATEI- VERWALTUNGEN 
OHNE RELATIV-DATEIEN 


In unserer Ausgabe 10/86 begann 
der Autor, fünf verschiedene Datei- 
verwaltungsprogramme, sowohl 
Freeware wie auch professionelle 
Angebote, miteinander zu verglei- 
chen. In dieser Ausgabe wird der 
Vergleichstest beendet. 


3. Dateien laden und Daten eingeben 


DATA464 


Nach dem Programmstart geht man 
sofort im Hauptmenue (Auswahl 
mit Zahl) mit folgenden Optionen: 


Auswahlmenue 

1 — Neue Datei anlegen 

— Weitere Eingaben 

— Datei korrigieren 

— In Datei suchen 

— Datei ansehen / ausdrucken 
— Datei einlesen 

— Datei absaven 

— Datei sortieren 

— Ende des Programmes 


vonusono om 


Datei laden (sofern man den richti- 
gen Namen hat, da das Programm 
sonst abbricht) geht ohne Kompli- 
kationen, wenn auch sehr langsam. 
Punkt „2“ führt zur Eingabe. Es 
werden die erforderlichen Felder 
angezeigt und auf die Eingabe ge- 
wartet. In der Eingabe sind alle 
Editiermöglichkeiten vorhanden. 
Bei Satzwechsel kann der eingege- 
bene korrigiert werden (Eingabe 
korrekt, oberste Tastenreihe dritte 
von rechts) kehrt man ins Hauptme- 
nue zurück. Die Datensicherung ist 
o.k., so daß man mit der Eingabe- 
funktion zufrieden sein könnte, 
außer daß das Gesamtbild auf- 
grund der fehlenden Informations- 
zeilen und des 40 Zeichenmodus 
nicht so professionell aussieht. Das 
Laden der Testdatei mit 200 Da- 
tensätzen von Diskette konnte ich 
nie ohne Speicherreorganisation 
durchführen, so daß Ladezeiten von 
2 Minuten und 20 Sekunden nor- 
mal waren. Nachdem ich aber eine 
„Dummydatei“ zu Programmbe- 
ginn eröffnet hatte und die Memory- 
grenze entsprechend erniedrigt ha- 
be, um den Datenpuffer zu sichern, 


verkürzte sich der Ladevorgang 

auch auf 20 Sekunden. 

— Lange Ladezeiten ohne eigene 
Routine 

— Nicht fehlersicher 


können dann mit allen Editiermög- 
lichkeiten die Daten ‚eingegeben 
werden (die Eingabe ist schnell, 
nur der Feldwechsel hängt etwas 
nach, wird aber gepuffert). Nach 


D. A I „E N-—  E-IN- GEB. E N 


Vorname: 
Udo 


EN 


> Bernsteinstrasse 23 


t: 
>? Bad Herrenalb 3 


Hardcopy: Data 64 — nicht fehlerfrei 


Schneiderdatei 


Das Programm startet auch so- 
fort mit dem Hauptmenue (Wahl 


mit Zahl), welches folgende Aus- 
wahlen vorweist: 

Hauptmenue 

Datei erstellen —1,= 
Datei eingeben —2— 
Daten ändern 3 — 
Daten suchen —4— 
Daten löschen 5 — 
Daten ausdrucken 6— 
Daten laden / speichern -7- 
Programm beenden -8—- 
Ihre Wahl bitte (1—8) 

Unter Punkt ‚7‘ kann ich mit „1“ 


Laden und mit ‚2‘ Sichern. Ich 
lade also meine Datei (ein falscher 
Dateiname läßt das Programm ab- 
brechen) und gehe über den Punkt 
„2°“ zur Dateneingabe. Das Eingabe- 
bild ist so einfach wie praktisch 
und durchdacht. Angezeigt werden 
im separaten Kopfteil: Der Datei- 
name, die höchstmögliche Satznum- 
mer, der aktuelle Datensatz und die 
aktuelle Feldnummer. Darunter 


14 


jedem Datensatz habe ich die Aus- 
wahl: <Eingabe korrekt>, <Ein- 
gabe falsch> und <Menue>. Alles 
geht schnell und sicher, so daß ich 
sagen muß, die funktionellste Ein- 
gabe. Das anschließende Laden 
der Testdatei mit ca. 13 Sekunden 
geht sehr schnell. 

+ Übersichtliche und funktionelle 

Eingabe 
— Nicht fehlersicher 


MULTIDATEI Data Media 


Nach dem Programmstart und der 
Monitorwahl (Grün/Farbe), er- 
scheint wieder ein Titelbild mit 
dem Hinweis auf den Programmie- 
rer. Es wird die Maschinenroutine 
nachgeladen, dann stehe ich im 
Hauptmenue, das folgende Optio- 
nen anbietet (ausgewählt wird mit 
Buchstabentaste): 

Ich wähle zunächst ‚„M“ und lade 
meine Testmaske, danach gehe ich 
mit „E‘“ in den Eingabemodus. Die 
Maske wird aufgebaut, die Funktio- 
nen in der Kopf- und Fußzeile an- 


gezeigt, während in der Fußzeile 
zusätzlich die Datensatznummer 
und Feldnummer angezeigt werden. 
Bis hierhin habe ich geglaubt, die 
aufwendige Maskenerstellung würde 
sich in komfortabler Eingabe oder 
funktionellerer Bearbeitung auswir- 
ken. Was mich aber jetzt erwartet, 


TEST 


Ich kann’s einfach nicht glauben.) 
Erstaunlicherweise springt der Cur- 
sor jedesmal das erste Eingabefeld 
an, obwohl das System das Feld 
selbst füllt und sowieso keine Ein- 
gaben zuläßt (?). Also drücke ich 
ENTER, um ins nächste Feld zu 
gelangen. Hier wird das Datum ein- 


Dateiname 

Hoechstzahl der Datensaetze 
Hoechstzahl Felde : 

Nummer des aktuellen Datensatzes : 
Nunner des aktueiien Feldes : 


B Maass 


Udo 
B Bernsteinstrasse 23 


a Bad herrenaib 3 


MULTIDAT 


Übersichtlich: 
das Menue der 
Schneider- 


5 DATA MEDIA 


LEI EDITIEREN 

Lo3 ORDNEN 

c?1 SUCHEN + AUSGEBEN 

Lxı3 LOESCHEN 

[MI MASKE LADEN 

[L? DATEI LADEN 

[sı DATEI SPEICHERN Profihaft: 
[c3 CATALOG Multidatei 


Me > en ne one a ne un nn Sn m Sn nn ne um 2 en un Sonn = 3 u u Den ee Su ie un 


das spottet jeder Beschreibung, und 
ich kann aus sittlichen Gründen 
meine Kraftausdrücke, die ich bei 
dieser Arbeit gebraucht habe, nicht 
wiedergeben. 

Um die Formate zu testen, be- 
stehen meine 6 Eingabefelder aus: 
lfd. Nummer (&), Datum (#), 
Uhrzeit (“), Nr (%), Text ($) und 
Nr2 (!). Der Cursor befindet sich im 
1. Feld. Ich versuche mit der Funk- 
tion CTRL+N, einen x-beliebigen 
Datensatz anzuwählen: Aus (???). 
ESC ist nicht mehr in Funktion, 
und da noch kein Datensatz ange- 
legt war, nimmt das Programm auch 
keine Eingabe an. Was tun? Warm- 
start, von vorn beginnen. Im ersten 
Eingabefeld sollte eigentlich die lfd. 
Nr. eingetragen werden, zu sehen 
ist nichts. Erst später finde ich her- 
aus, daß alle Dateien mindestens 
einmal sortiert sein mußten, um 
sinnvolle Inhalte zu haben (Ich ha- 
be verucht, diesen Fehler der Ver- 
triebsfirma mitzuteilen. Dort konn- 
te man aber immer nur darauf hin- 
weisen, wie oft das Programm 
schon fehlerfrei im Einsatz sei. 


gegeben. Wer nun glaubt, aufgrund 
der speziellen Datentypen eine 
komfortable Datumeingabe vorzu- 
finden, der hat sich gewaltig ge- 
täuscht. Ich bin in der Lage, den 
56.18.00 einzugeben: also keine 
Syntaxprüfung. Außerdem sollten 
Sıe mal den 31.12.85 testen, das 
ergibt nämlich den “ .1.86“, der 
1.1.08 ergibt “ 1.1. “. Das war ja 
wohl nichts. Viel schlimmer ist für 
mich die DIN-Norm-spottende For- 
matierung. Man kann heute das 
Datum entweder als ‚7. Januar 
1986‘ oder ‚07.01.86° schreiben, 
das Programm macht prinzipiell den 
„7. 1. 86“ oder „7.1.1986“ (je 
nach Vorgabe) daraus. Es streicht 
die führende Format-“0“ und 
vergibt 4 Stellen an das Jahr. Da ver- 
zichte ich lieber auf das Format 
und erkläre das Feld zum Textfeld, 
oder mache einfach 3 Textfelder 
draus, dann kann ich auch wieder 
logisch richtig sortieren. Das 
nächste Feld (Uhrzeit) ist nicht bes- 
ser. Keine Syntaxprüfung; ich kann 
unmögliche Zahlen als auch x-fach 
den Separator ‘“:‘“ eingeben, ohne 
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daß eine Meldung auftaucht. Wenig- 
stens werden meine futuristischen 
Zahlen in gültige Werte umgerech- 
net. Unerschütterlich wechsele ich 
ins nächste Feld (nr) mit Integer- 
Format. Der Cursor steht nicht, wie 
man vermuten könnte, am Anfang, 
sondern am Ende des Feldes, was 
heißt: Ich muß prinzipiell manuell 
in die erste Spalte fahren (gilt für 
alle numerischen Felder), was mir 
aber nicht allzuviel hilft, denn es 
steht immer der größte Schrott im 
Feld, wenn ich irgend etwas einge- 
geben habe (auch hier wirkt eine 
Sortierung Wunder), und ich kann 
den Inhalt nicht kontrollieren. End- 
lich gelange ich ins Textfeld. Welch 
eine Wohltat, denn alle Editier- und 
Eingabemöglichkeiten funktionie- 
ren, wenn auch der Cursor nicht 
der schnellste ist, und ich bei lan- 
gen Textfeldern mehrfach von der 
„Garbage Collection“ aufgehalten 
werde: habe ich am Beispiel einer 
Urlaubsdatei mit 10 40-stelligen 
Texteingabefeldern probiert). Das 
nächste Feld ist wieder ein numeri- 
sches (Real)Feld. Für ieses gilt das 
gleiche wie für das Integerfeld, 
hinzu kommt noch, daß ich gar 
nicht weiß, wieviele Kommastellen 
eingegeben wurden. Wäre noch an- 
zumerken: Eine leere Maske kann 
nicht verlassen werden. Gott sei 
Dank bin ich fertig und verlasse 
die Eingabefunktion mit ESC (??? 
anders geht’s nicht) und speichere 
die Datei ab (Hurra! Das funktio- 
niert). Für die weitere Bearbeitung 
verwende ich eine erzeugte Datei 
mit 200 Datensätzen und 5 Feldern 
(Ladezeit ca. 36 Sekunden). Wenn 
ich sie mit falschem Namen laden 
will, bricht mein Programm ab, 
also aufpassen. 
+ Man kann innerhalb der Maske 
von Feld zu Feld springen. 
— CTRL+N ohne Daten führt zum 
Programmabsturz 
— Ohne Sortierung häufig sinnlose 
Feldinhalte 
— Falsche Datumberechnungen 
— Cursor steht in numerischen Fel- 
dern immer am Ende des Feldes. 
— Lfd. Nr wird immer angesprun- 
gen, obwohl keine Eingabe mög- 
lich. 


— Keine Syntax-Prüfungen bei 
Datum und Uhrzeit 

— Ungewöhnliche Formatierung 
des Datum 


— 3-stellige Feldnummer wird in 
Fusszeile nicht richtig gelöscht 


Datum- und Uhrzeitfeld müssen 
2-fach bestätigt werden. 


. MULTIDATEI Rainbow Arts 


Von soviel Professionalität schon 
total frustriert, starte ich das Pro- 
gramm. Ein nettes Titelbild baut 
sich auf (Geschmacksache sprach 
der Affe und biß in die Schmier- 
seife), welches auf Tastendruck ver- 
schwindet. Danach kann ich mit 
„1“ die Schriftfarbe, mit ‚2‘ die 
Hintergrundfarbe verändern oder 
mit „3“ weitergehen. Nun baut sich 
das Hauptmenue (Modus 1) auf. 
Was für ein Menue! Klar und über- 
sichtlich gegliedert, die Auswahl er- 
folgt mit Cursortasten und ENTER 


(ein Pfeil wird bewegt). 


SERIE 


nächste Datensatz angezeigt, bis die 
Pfeiltaste gedrückt wird. Dafür kann 
der Feldinhalt des letzten Feldes 
durch die Eingabe von „xx“ über- 
nommen werden (!). Ich kann beim 
Abspeichern wählen, ob ich vom 
ersten bis zum letzten Datensatz 
abspeichern will (wird vorgeschla- 
sen) oder nur bestimmte Sätze un- 
ter einem eigenen Namen. Danach 
lade ich meine 200er Testdatei (La- 
dezeit ca. 20 Sekunden). 

+ Bei „Datei laden‘ kann neu ge- 
laden oder gleich angehängt wer- 
den 

+ Alter Feldinhalt kann neu über- 
nommen werden 

+ Anzeige der noch freien Daten- 
sätze 
Keine sofortige Korrektur der 


DATENSATZ & FELD SUCHEN 
DATEI SORTIEREN 
Rechnung & Grafik & CLR/ENDE 


3 Ds aendern & loeschen 


DATEI LISTEN & DRUCKEN 


BIO HaAuptmenue 


Außerdem sehe ich in der Fußzeile, 
daß es noch ein Diskettenmenue 
gibt (für Recorderanwender logi- 
scherweise nicht zugänglich), wel- 
ches mit ‚2‘ ausgewählt wird und 
später noch untersucht wird. Unter 
„Datei laden‘‘ werde ich sofort ge- 
fragt, ob ich neu laden (1), oder an 
eine evtl. bestehende Datei anhän- 
gen will (2). Nach der Eingabe eines 
falschen Namens erscheint eine 
Fehlermeldung (ohne Programmab- 
sturz), ansonsten wird die Datei ge- 
laden und das Programm kehrt auch 
ins Hauptmenü zurück. Ich wähle 
die Dateneingabe, und das erste 
Feld steht zur Eingabe bereit. Die 
Kopfzeile teilt mir mit, daß die 
Pfeiltaste (Tastennr. 24) prinzipiell 
zur Rückkehr ins Hauptmenü zu be- 
nutzen ist, und wieviel Datensätze 
noch angelegt werden können (!). 
Die Eingabe erfolgt reibungslos und 
schnell. Einziges Manko: Ein sofor- 
tiges Ändern eines Datensatzes ist 
nicht möglich. Nach der Eingabe 
des letzten Feldes wird sofort der 


wi Diskmenue 


Datensätze bei der Eingabe mög- 
lich 


4. Daten löschen und ändern 


DATA464 


Löschen eines Datensatzes ist nicht 
möglich, höchstens über die sehr 
umständliche Art der Leerfeldein- 
tragung, wobei dann der Datensatz 
als Leersatz mitgeführt wird (?). 
Beim Ändern muß die Nummer des 
zu ändernden Datensatzes eingege- 
ben werden (Achtung: Ist sie zu 
hoch, erfolgt Programmabbruch), 
danach werden die einzelnen Felder 
mit Inhalt angezeigt und können 
geändert werden. Was man nicht 
gleich weiß: Das Pfundzeichen als 
Eingabe leert das Feld, einfaches 
Abdrücken übernimmt den alten In- 
halt. 

+ Alter Feldinhalt kann übernom- 

men werden 
— Echtes Löschen nicht möglich 


16 


SCHNEIDERDATEI 


Hier gibt es zwei komfortable 
Routinen. Beim Löschen können die 
ganze Datei oder einzelne Sätze ge- 
löscht werden, wobei dann ein be- 
stimmter Satz (nach Nummereinga- 
be) oder beim Blättern (vorwärts, 
rückwärts, löschen, Menü) gelöscht 
werden kann. Beim Ändern ist es 
ähnlich. Es gibt die Möglichkeit des 
direkten Änderns durch Eingabe 
der Satznummer (Datensatz wird 
angezeigt) und der Feldnummer 
(anschließend hat man folgende Op- 
tionen: „anderen Satz ändern“, 
„gleichen Satz ändern‘, Menü‘), 
oder durch Ändern beim Blättern 
(siehe löschen). 
+ Löschen der ganzen Datei oder 
einzelner Sätze 
+ Ändern und Löschen direkt oder 
beim Blättern 
+ Guter Bildschirmaufbau 
- Reorganisation nach Löschen, 
und somit keine Satznummernga- 
rantie. 


MULTIDATEI Data Media 


Zum Ändern gibt es nichts zu sa- 
gen, da es wie die Eingabe unter 
dem Punkt „Editieren“ erfolgt und 
auch keine eigenen Funktionen be- 
sitzt. Beim Löschen (Vorsicht! 
keine falschen Nummern wählen) 
wird man nach der Nummer ge- 
fragt, und dann nach der Ober- 
grenze (besser wäre die Frage nach 
„von/bis“ gewesen, es ist nämlich 
das gleiche). 
+ Beim Ändern gleiche Editorfunk- 
tionen wie bei der Anlage 
+ Löschen auch als Serie möglich 
Reorganisation nach Löschen, 
und somit keine  Satznumern- 
garantie 


MULTIDATEI Rainbow Arts 


Bei der Auswahl des Ändem/Lö- 
schen-Punktes aus dem Hauptmenü 
werden Sie (beim Ändern) nach der 
Satznummer gefragt, und die ent- 
sprechenden Felder werden mit ih- 
rem Inhalt zur Änderung angezeigt 
(alter Inhalt wird vorgeschlagen). 
Eine weitere Änderungsfunktion 
gibt es nicht, ist auch nicht nötig, 
denn beim Listen kann auch zu 
jeder Zeit geändert werden. Das 
Löschen ist wieder ein typischer 
Komfortpunkt dieses Programmes. 
Ich kann einzelne Datensätze durch 
die Eingabe der Satznummer lö- 


schen oder eine Serie durch Mittei- 
lung des ersten (“1‘ wird vorge- 
schlagen) und des letzten Daten- 
satzes). Das Absolute ist aber das 
Löschen nach Inhalt. Ich lege die 
Anzahl der Kriterien (! max. 10) 
fest und gebe „den linken Teil oder 
den kompletten Suchbegriff“ zu- 
sammen mit der entsprechenden 
Feldnummer ein. Daraufhin werden 
die Daten auf die Bedingung geprüft 
und entsprechend gelöscht. Die Sät- 
ze bleiben physikalisch erhalten, so 
daß sich die Satznummern bei der 
weiteren Verarbeitung nicht ändern. 
Als Letztes besitzt das Programm 
die Möglichkeit, ab einer eingege- 
benen Satznummer bei weiteren 
Eingaben alle schon vorhandenen 
Sätze zu überschreiben (kein vorhe- 
riges Löschen notwendig) 
++Löschen nach feldübergreifen- 
der Inhaltsprüfung 
+ Löschen durch Überschreiben 
+ Löschen einzelner Sätze als auch 
anzer Satzserien 
+ Ändern mit komfortablen Funk- 
tionen (Druck ...) 
+ Keine Reorganisation beim Lö- 
schen, sondern nur Markierung 


Datensätze suchen 


DATA464 


Die Suche erfolgt unter dem Punkt 

„4“. Es werden die Feldbezeich- 

nungen angezeigt, so daß das Such- 

feld bestimmt werden kann. Nach 

Eingabe des Begriffes startet die 

Routine. Suchzeit: erstaunliche 2 

Sekunden. 

++ sehr schnell 

+ Suchendmeldung wird ausgege- 
ben 

+ Feldbezeichnungen werden ange- 
zeigt 


SCHNEIDERDATEI 


Unter dem Punkt für „Daten su- 
chen‘ werde ich nach dem Such- 
begriff und den relvanten Stellen 
gefragt. Die Suche beginnt und der 
gefundene Datensatz wird mit An- 
gabe des Dateinamens, der maxima- 
len Datensatzanzahl, der Datensatz- 
nummer und in der Fußzeile mit 
der Möglichkeit <W=weiter> (sucht 
weiter, <S=suchen> (läßt neue 
Suche zu) oder< 


Suche zu) oder <M=Menü> ausgege- 


ben. 2 Schwachpunkte: Man kann 
. die Suche nicht auf ein Feld begren- 


zen, was Schwierigkeiten bringt, 

wenn in verschiedenen Feldern der 

gleiche Inhalt vorkommen kann. 

Außerdem ist die Suchzeit gleich 

hoch (ca. 10-11 Sekunden), egal 

wieviel relevante Stellen eingegeben 
wurden. 

— Nach mehreren Suchvorgängen 
stoße ich auf den ‚Memory Full“ 
Fehler 

— Suche nicht auf ein Feld begrenz- 
bar 

— Der Sinn der relevaten Stellen 
wird nicht klar 


MULTIDATEI Data Media 


Im Hauptmenü wird die Taste ‘“?“ 
gedrückt. Daraufhin wird die leere 
Maske aufgebaut und es erscheint 
die Frage „Bitte fahren Sie das be- 
treffende Feld mit dem Cursor an 
<ENTER>“, nicht schlecht. Ich 
suche einen Namen, also bewege ich 
den Cursor ins erste Feld und bestä- 
tige „Bitte Suchwort für Namen?“, 
lautet die nächste Frage. Ich nehme 
den Namen ,„200Name‘“, da dies 
der letzte Datensatz meiner Test- 
datei ist. Jetzt kommt’s: „Ober- 
grenze (J/N)?“. Ich muß erst im 
Handbuch nachschlagen um heraus- 
zufinden, was das sein soll. Aha, in 
14 Zeilen wird eine Erklärung ver- 
sucht. Komisch, warum will man 
nicht einfach wissen, wieviel rele- 
vante Stellen des Begriffes für die 
Suche genommen werden sollen? 
Das hätte ich sofort verstanden. 
Also gebe ich ‚200° ein und werde 
weiter gefragt: „Noch mehr Such- 
worte (J/N)“. Ich kann also die Su- 
che auf verschiedene Felder ausdeh- 
nen, wobei das Programm nicht 
merkt, wenn ich mehr Suchworte 
definiere als überhaupt Felder vor- 
handen sind. Wenn ich die Suchkri- 
terien definiert habe, muß ich noch 
das Ausgabemedium bestimmen 
(Drucker oder Bildschirm), wobei 
ich (Gott sei Dank) den Bildschirm 
wähle, dann kann ich letztendlich 
noch bestimmen, ab welcher Satz- 
nummer die Suche beginnen soll. 
Ich lasse ab dem ersten Satz suchen 
und erhalte das Ergebnis nach einer 
Suchzeit von ca. 7-9 Sekunden, 
egal, ob ich den kompletten Begriff 
oder nur den ersten Buchstaben su- 
chen lasse. Wie aber erscheint das 
Ergebnis: Die Bildschirmmaske 
wird aufgebaut, und der erste ge- 
fundene Satz wird angezeigt. Daß 
ich mit CTRL+> den nächsten ge- 
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fundenen Satz bekomme, erfahre 

ich nur durch Probieren. Auch wird 

keine Endemeldung gebracht, wenn 

beispielsweise kein Satz gefunden 

wurde, sondern der nächste freie 

Datensatz wird angezeigt. 

+ Man muß die Feldbezeichnungen 
nicht kennen 

+ Feldübergreifende Suche möglich 

— Ausgabe auf Drucker siehe Punkt 
7 


verwirrende Funktionen bei der 
ausgegebenen Bildschirmmaske 


MULTIDATEI Rainbow Arts 
Nach der Auswahl des Menüpunktes 


"<Datensatz & Feld suchen> werde 


ich nach der Anzahl Kriterien ge- 
fragt (1 wird vorgeschlagen), ich 
kann also auch hier feldübergrei- 
fend suchen. Ich drücke nur EN- 
TER und gebe jetzt „den linken 
Teil oder den Inhalt des Feldes“ 
ein. Es fehlt natürlich noch die An- 
gabe, ‘in welchem Feld er suchen 
soll (1), dann legt er los, und fin- 
det nach ca. 5 Sekunden meinen ge- 
wünschten Datensatz und gibt ihn 
aus. Und wie er ihn ausgibt. Ich 
kann aus der Bildschirmanzeige her- 
aus entweder „weiter“ (nächster 
Datensatz wird gesucht), „Druck“ 
(der Datensatz wird mit Nummer 
und Feldbezeichnungen ausgege- 
ben), ‚Ändern‘, „Löschen“ oder 
zum Hauptmenü zurück wählen 
(!!!). Das Ende der Suche wird an- 
gezeigt. 

+++ Top-Funktionen bei Anziege 

+ Feldübergreifende Suche möglich 
+ schnelle Suche 


6. Dateien sortieren 


DATA464 


In die 7 KB des Programmes 
konnte man sogar eine Sortierrou- 
tine reinpacken. Und was für eine. 
Die Sortierkriterien können nach 
Anzeige der Feldbezeichnungen 
ausgesucht werden. Und in weniger 
als 1 Minute ist die Testdatei nach 
dem gewählten Feld sortiert (!). 
Na bitte. 

+ Schnelle Sortierung 


- Sortierung nach einem Kriterium 


SCHNEIDERDATEI 


Erstaunlicherweise ist in dem 18 
KB großen Programm kein Platz 
für eine Sortierroutine gewesen. 


MULTIDATEI Data Media 


Nach Wahl des Punktes ‚0° wird 

die Bildschirmmaske aufgebaut und 

“ich kann das Feld anfahren, nach 

dem sortiert werden soll. Sortier- 

zeit: 2 Minuten 11 Sekunden. 

++Sortierung erfolgt gemäß dem 
gewählten Feldtyp (Datum, Uhr- 
zeit usw.) 

— Bei erneuter Sortierung nach Ifd. 
Nr. erfolgte die Fehlermeldung: 
„Improper Argument“, danach 
Programmabbruch (?) 

— Sortierung nur nach einem Krite- 
rium möglich 

— ESC nach der Anwahl außer 


Funktion. 


MULTIDATEI Rainbow Arts 


Hier treffen ausnahmsweise 2 unter- 
schiedliche Urteile aufeinander: 
Zum einen überzeugt der Komfort. 
Es können die ganze Datei oder nur 
Teile sortiert werden, die Anzahl 
der Suchkriterien kann 10 betragen 
und jedes Feld kann numerisch 
oder alphabetisch sortiert werden, 
wobei die sortierte Datei immer un- 
te einem frei wählbaren Namen auf 
das Speichermedium geschrieben 
wird, so daß die unsortierte Datei 
für weitere Sortierungen nach ande- 
ren Kriterien zur Verfügung steht. 
Andererseits ist da die Sortierzeit: 
Egal ob alphabetisch oder nume- 
risch gewählt wurde, das Programm 
benötigte zwischen 22 und 25 Mi- 
nuten. Das ist nicht nur entschieden 
zuviel, es ist einfach unzumutbar. 
Zumal während der Sortierung die 
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Sortieren vmach: 

Hame 

Vorname 
trasse 


Ort 


Modus : Ds/Feld suchen = etzter Ds: j = Hauptnenue 


- Wieviele Kriterien ? 2 


Geben Sıe den Inhalt oder den iınken Teıl des Suchwortes em : 


3 . Suchwort ? Maa 
in welchem Feld ? i 
©. Suchwort ° bdo_ 
in welchem Feld ? <& 


Ds Nr.: 58 

1 Name Maacs 

2  Norname vds 

3 Strasse : Bernsteinsteass 
4 PLZ ; 7585 . 

5 Ort : bad Herrenain ı 
6 Telefon (BWestN 8381 

7 Bemerkıma' 212 

Ez 


e ca 


zu vergleichenden Datensätze noch 
angezeigt werden (den Sinn dieser 
Anzeige verstehe ich nicht). Wild 
werden die verschiedenen Daten- 
satznummern durcheinander ge- 
printet, und es ist schon ein sehr 
trauriges Bild, wenn man an der 
Anzeige erkennt, wie.das Programm 
— ohne es zu merken — durch eine 
schon sortierte Datei geht, dabei 
bräuchte man nur einen Pointer, 
der gesetzt wird, wenn beim Bubble- 
Sort (???) 2 Elemente vertauscht 
werden. Sollte aber kein Tauschvor- 
gang mehr erfolgen, dann ist die 
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Sortierung beendet. So aber wird 

23 Minuten eine sortierte Datei 

sortiert. Schade, denn dies ist der 

erste echte Schwachpunkt des sonst 

so hervorragenden Programmes. 

+ Teile der Datei können sortiert 
werden 

+ Die sortierte Datei wird auf Spei- 
chermedium ausgegeben 

+ Bis 10 Sortierkriterien möglich 

+ Alphabetische oder numerische 
Sortierung 

— Viel zu lange Sortierzeit 


(Udo Maass) 
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Von dieser Ausgabe an 
sollen in lockerer Folge 
einige Tips und Tricks in 
Schneider-BASIC veröf- 
fentlicht werden. Heute 
habe ich zwei Grafik- 
Tricks und zwei Inter- 
rupt-Manipulationen für 
Sie vorbereitet. 

Exaktes Zentrieren von 
Texten 


Mit dem folgenden Unter- 
programm können Sie je- 
den Text auf einen Bild- 
punkt genau auf dem Mo- 
nitor zentrieren: 
10000 ‘a$ : zu drucken- 
der String; 
yy : Höhe in Grafikkor- 
dinaten; 
mm : aktueller MODE 
10010 IF mm=0 THEN 
faktor=32 ELSE IF mm= 
1 THEN faktor=15 ELSE 
faktor=8 
10020 11=LEN(a$)*fak- 
tor:sub=11/2 
10030 TAG:MOVE 320- 
sub,yy:PRINTa$8;:TAG- 
OFF:RETURN 

Alle Parameter, die 
übergeben werden müssen, 
finden Sie in der Kom- 
mentarzeile 10000. 


Verlangsamung von Bild- 


schirmausgaben 

Mit den beiden Pro- 
grammzeilen 

1 EVERY 1, 1GOSUB 
10000 


10000 FOR i=1 TO 10: 
NEXT 1:RETURN 
können vor allem grafi- 
sche Ausgaben verlang- 
samt werden; bei PRINTs 
ist diese Methode jedoch 
wirkungslos, da während 
der Ausführung einer 
PRINT-Anweisung keine 
Interrupts ausgeführt 
werden. 


Programme auf Tasten- 
druck unterbrechen 


Oft wünscht man sich, 
.ein Programm auf Tasten- 


TIPS & 


TRICKS: 


druck unterbrechen zu 
können, z.B. damit Zah- 
lenkolonnen nicht so 
schnell auf dem Bild- 
schirm vorbeilaufen. In 
Ihren BASIC-Program- 
men können Sie folgende 
Routine gut einsetzen: 

1 EVERY 5,0 GOSUB 
10000 

10000 IF INKEYS< >“ 
“ THEN WHILE IN- 
KEYS< >“ “: WEND 
:WHILE INKEYS=“ “ 
WEND 

10010 RETURN 

Wenn Sie jetzt eine 
Taste kurz antippen, 
stoppt das Programm, bis 
erneut eine Taste betätigt 
wird. 

Mit diesem BASIC- 
Tricks wird vielleicht 
manches Ihrer Program- 
me bequemer zu bedie- 
nen oder übersichtlicher. 


Umrechnen LOCATE > 
MOVE 

Für den TAG-Befehl wäre 
es oft angebracht zu wis- 
sen, welche Grafikposi- 
tion einem entsprechen- 


den LOCATE gleichwer- 


tig ist. Hier sind also die 
Formeln: 

xg=(x-1)*f 

yg= 399 — (y-1)*16 
Statt LOCATE x,y kön- 
nen Sie jetzt schreiben: 
TAG:MOVE xg, yg. Der 
Wert von f muß je nach 
MODE als 8 (MODE 2), 
16 (MODE 1) oder 32 
(MODE 0) eingesetzt 
werden. 

Die kürzeste Joystick- 
Abfrage 
Nachdem sich der Dis- 
put über die kürzeste 
Ja/Nein-Abfrage recht 
interessant entwickelt 
hat (vor allem dank 


meines Kollegen An- 
dreas Müller), hoffe 


ich, wieder einmal 
Stoff für solche Aus- 
einandersetzungen zu 
liefern, indem ich heu- 
te meine Version der 
kürzesten Joystickab- 
frage vorstelle. 
Bedingungen sind: 
Die Abfrage muß ein 
Unterprogramm ab Zei- 
le 10000 sein, das fer- 
tige Koordinaten für 


:LOCATE in x und y 


liefert. Startwerte für 
die beiden Variablen 
sollen im Hauptpro- 
gramm vergeben wer- 
den; dort soll auch die 
Überprüfung auf eine 
Überschreitung des 
Wertebereichs stattfin- 


. den. 


Nun also die kürzeste 
Joystick-Abfrage aller 
Zeiten: 
10000 x=x-INKEY 
(74)+INKEY(75): 
y=y-INKEY(72)+IN- 
KEY(73): 
RETURN 

Für diejenigen, die’s 
interessiert: Das sind, 
inklusive das RETURN, 
54 Zeichen. 

(Alwin Ertl) 


SPIELE-TEST: 


WHO DARES 
WINS II 


Es gibt Spiele, die, solan- 
ge Computer existieren, 
nie vom Markt verschwin- 
den werden. Dies ist die 
Klasse der primitiven Bal- 
lerspiele. Auch ‚Who 
dares wins II“ gehört da- 
zu. 
Aufgabe des Spielers 
ist es — man befindet sich 
natürlich mitten im Krieg 
— als Pionier sämtliche 
Vorposten der gegneri- 
schen Armee zu vernich- 
ten. Diese Vorposten sind 
ausgesprochen gut be- 
wacht, und da hilft nur 
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schießen und immer wie- 
der schießen. Dem Spie- 
ler stehen ein Schnellfeu- 
ergewehr mit unbegrenz- 
ter Munition und eine be- 
stimmte Anzahl von 
Handgranaten zur Verfü- 
gung. Mit diesen Mitteln 
muß er nun versuchen, al- 
le feindlichen Soldaten 
zu erschießen oder in die 
Luft zu sprengen. Diese 
wehren sich selbstver- 
ständlich, ballen aber 
recht ziellos durch die 
Gegend. Bei der Masse 
der Gegner kommt es 
doch ziemlich oft vor, 
daß man von einer Kugel 
oder einer Granate ge- 
troffen wird. Ferner exi- 
stieren auch Flugzeuge, 
deren Maschinengewehr- 
salven oder Bombenab- 
würfe aber einigermaßen 
berechenbar sind. 

Als zusätzlichen Höhe- 
punkt bauten die Pro- 
grammierer von Alligata 
ın einige Screens Exeku- 
tionskommandos ein, die 
sich anschicken, Kriegsge- 
fangene zu erschießen. 
Der gewitzte Spieler wird 
bald feststellen, daß man 
durch Erschießen der sich 
mit einem freundlichen 
Winken bedankenden 
Soldaten weitere Punkte 
sammeln kann. Ist es dem 
Spieler gelungen, alle 
Vorposten zu erobern, er- 
scheint die obligatorische 
Gratulation und die er- 
nüchternde Meldung, daß 
die Kameraden die Stel- 
lung nicht halten konn- 
ten und der Spieler für ei- 
nen neuen Einsatz an die 
Front zurückgerufen 
wird. Dann beginnt das 
Spiel von vorne. 


FAZIT 
Ein Spiel, bei dem ledig- 
lich die Grafik einigerma- 
ßen zufriedenstellt. An- 
sonsten handelt es sich _ 
bei „Wer wagt gewinnt” 
um ein Ballerspiel mit 
äußerst geringem Niveau, 
dessen Kauf sich guten 


Gewissens umgehen läßt. 
Alexander Opachowski 


FIRMWARE-CALLS 
für Basic-Programmierer 


Die Firmware des Schnei- 
der CPC 464 enthält eini- 
ge Routinen, die auch oh- 
ne Einsprungbedingungen 
aufgerufen werden kön- 
nen. Unter Umständen 
sind diese CALLs recht 
nützlich auch für BASIC- 
Programmierer. Dieser 
Artikel soll die wichtig- 
sten davon vorstellen. 

Beginnen wir mit dem 
Keyboard-Manager, abge- 
kürzt KM. Die erste wich- 
tige Routine ist 
KM INITIALISE (CALL 
&BBOO) 

Damit kann der Key 
Manager komplett rück- 
gesetzt werden. Das be- 
deutet: Der Tastaturpuf- 
fer ist leer, alle mittels 
KEY gesetzten Erweite- 
rungen sind gelöscht, auch 
alle KEY-DEF-Befehle 
sind rückgängig gemacht. 
Dasselbe gilt für den 
SPEED-KEY-Befehl. Au- 
ßerdem sind SHIFT 
LOCK und CAPS LOCK 
nicht mehr gesetzt. 

Wichtig ist auch 
KM WAIT CHAR (CALL 
&BB06) 

— ein guter Ersatz für die 
Schleife WHILE INKEY$ 
=“ WEND. 

Dieselbe Wirkung hat 

KM WAIT KEY (CALL 
&BB18) 

Intern gibt es da natürlich 
ein paar Unterschie- 
de (sonst wären ja keine 
zwei verschiedenen Rou- 
tinen nötig gewesen), 
aber das spielt in BASIC 
keine Rolle. 

Als nächstes im Spei- 
cher finden sich die Rou- 
tinen des Text-VDU 
(VDU bedeutet ‚Video 
Display Unit‘), eingelei- 
tet in der Abkürzungs- 
Bezeichnung mit den 
Buchstaben TXT. Interes- 
sant ist hier 
TXT CLEAR WINDOW 
(CALL &BB6C) 

Der Aufruf dieser Rou- 
tine löscht das aktuelle 


REPORT 


Fenster — ebenso wie ein 
CLS-Befehl. Da aber CLS 
diese Aufgabe ebensogut 
erfüllt, kann man darauf 
auch verzichten. Weniger 
jedoch auf 

TXT PLAXE CURSOR 
(CALL &BB8A) 

und 

TXT REMOVE CURSOR 
(CALL &BB8D) 


Diese beiden Routinen 
sind wichtig, wenn Sie in 
einem Programm den Be- 
nutzer ein Cursorsymbol 
steuern lassen wollen. Sie 


bewirkt, daß das Grafik- 


PAPER auf INK 0, der 


Grafik-PEN auf INK 1 ge- 
setzt wird. Beachten Sie 
dabei, daß auf Text-PA- 
PER und -PEN kein Ein- 
fluß ausgeübt wird! Au- 
ßerdem wird ein ORIGIN- 
Befehl, der die Größe des 
Grafikfensters verändert 
hat, rückgängig gemacht. 
Das Grafikfenster wird je- 
doch nicht gelöscht! 

Ein guter Ersatz für 
den CLG-Befehl ist 
GRA CLEAR WINDOW 
(CALL &BBDB) 


TIPS 
& 


TRICKS 


Diese Routine löscht das 


könnten natürlich auch 
ein beliebiges Zeichen (# 
zum Beispiel) als Pseudo- 
Cursor verwenden! aber 
sieht der Original-Schnei- 
der-Cursor nicht besser 
aus? 

Ein weiterer Vorteil 
ist, daß dieser Cursor den 
Hintergrund sichtbar läßt 
— das Zeichen, über dem 
er steht, wird lediglich in- 
vers dargestellt. Mıt 
LOCATE x,y: CALL 
*BB8A 
setzen Sie das Zeichen, 
durch ein 
LOCATE x,y:CALL 
&BB8D 
wird es wieder gelöscht. 
Textverarbeitungen und 
menügesteuerte Program- 
me erhalten dadurch ei- 


nen professionellen 
„Touch“. 

Weiter zur Grafik. 
Gleich die erste Routine 
GRAINITIALISE (CALL 
&BBBA) 


ist hier interessant. Sie 


“ Grafikfenster und 


setzt 
die augenblickliche Po- 
sition des Grafikcursors 
auf den Ursprung der 
Anwenderkoordinaten. 
Das Grafikpaket ent- 
hält eine große Anzahl 
von Routinen, die jedoch 
nur in Assembler nutz- 
bar zu machen sind. 
Gehen wir also weiter zur 
Bildschirmverwaltung. 
SCR RESET (CALL 
&BC02) 
ist eine Routine, die Ih- 
nen aus mancher Verle- 


genheit helfen kann, 
wenn Sie einmal „blaue 
Schrift auf blauem 


Grund“ programmiert ha- 
ben. Damit werden alle 


INKs nämlich auf ihre 
Standardfarben gesetzt. 
Außerdem werden 


SPEED-INK-Befehle und 
Änderungen des Grafik- 


modus durch PRINT 
CHR$ (23);CHR$(x); 
aufgehoben. 
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Die nächste Routine, 
SCR CLEAR (CALL 
&BC 14) 
ist eine Art „Brutal-CLS‘“ 
Damit kann der Bildd- 
schirm komplett gelöscht 
werden, auch wenn er in 
mehrere WINDOWs un- 
teilt ist. Die Firmware 
macht das folgenderma- 
ßen: Zunächst werden 
alle INKs auf die Papier- 
farbe gesetzt, was schon 
einmal eine optische Lö- 
schung bewirkt. Daran 
anschließend wird der ge- 
samte Bildschirmspeicher 
mit Nullen gefüllt. Nun 
steht wirklich nichts 
mehr auf dem Schirm, 


‚ und die INKs werden — 


zwecks weiterer Verwen- 
dung — wiederhergestellt. 
Bei: acht Fenstern ist 
CALL &BC14 auf jeden 
Fall kürzer als FOR i=1 
TO 8:CLS #1:NEXT. 

Die  Kassettenverwal- 
tung hat nichts weltbe- 
wegendes zu bieten. 

Nur 
CAS INITAILISE (CALL 
&BC65) 
ist insofern interessant, 
als es alle Ein-/Ausgabe- 
dateien als „geschlossen“ 
kennzeichnet. Es ist je- 
doch in jedem Fall bes- 
ser, ein verbessenes CLO- 
SEIN oder CLOSEOUT 
an der richtigen Stelle 
einzufügen, um der Feh- 
lermeldung „File already 
open“ auf diese Art aus 
dem Weg zu gehen. 


Auch mit den Sound- 
routinen ist nicht viel an- 
zufangen, so daß als letz- 
te brauchbare Routine 
nur noch 


MC WAIT FLYBACK 
(CALL &BD19) 

zu erwähnen ist. Dieser 
Aufruf bewirkt, daß mit 
der Auswirkung des näch- 
sten Befehls gewartet 
wird, bis ein Bildrück- 
lauf-Ereignis aufgetreten 
ist. Das verringert das 
Flackern bei bewegten 
Grafiken. Versuchen sie 
doch einmal Folgendes: 
FOR i=0 TO 639: 


REPORT 


MOVE 1,0:DRAWR 0,40: 
NEXT i 

Anschließend fügen Sie 
vor der NEXT-Anweisung 
ein CALL &BD19 ein. 
Das Bild wird zwar lang- 
samer, aber auch wesent- 
lich ruhiger aufgebaut. 

Im BASIC 1.1 des CPC 


664 bzw. 6128 ist dieser 
Befehl als FRAME be- 
reits eingebaut. Für diese 
beiden Geräte kann auch 
nicht garantiert werden, 
daß jede der hier vorge- 
stellten Routinen darauf 
lauffähig ist. Probieren 
Sie’s aber ruhig aus. 


Matrix- 
Tabellenkalkulation 
aus Großbritannien 


Auf der PCW-Show in 
London Anfang Septem- 
ber stellte die Firma Au- 
diogenic Doftware Ltd. 
(ASL) ihre neue Tabellen- 
kalkulation für die Schnei- 
der CPCs vor. Genauer 
gesagt: eigentlich nur für 
den 5128; die beiden an- 
deren Modelle müssen um 
mindestens 64 K aufgerü- 
stet werden. 


Bei einem Speicher- 
platzbedarf von 128 K 
darf man aber auch pro- 
fessionelle Leistungen er- 
warten. Nach Hersteller- 
angaben — eine Testver- 
sion steht der Red. 
(noch?) nicht zur Verfü- 
gung — bietet Matrix Fol- 
gendes:  Pull-Down-Me- 
nues, integrierte Textver- 
arbeitung sowie grafische 
Darstellungen. Und natür- 
lich die eigentliche Tabel- 
lenkalkulation. 

Dieses Spreadsheet be- 
steht aus maximal 1023 x 
255 Zellen. Die Breite 
der einzelnen Spalten ist 
individuell einstellbar. 


Außer der Möglichkeit, 
alles in Form einer Da- 


tenbank zu speichern, 
sollen umfangreiche 
mathematische Befehle 


zur Verfügung stehen. 

Die eingebaute Text- 
verarbeitung (,‚notepad“ 
genannt) ermögicht die 
Übernahme von Werten 
aus der Tabelle oder aus 
einer Datenbank. Es ist 
also ohne weiteres mög- 


‚lich, z.B. Mahnschreiben 


damit zu verfassen. 

Die grafische Darstel- 
lung beinhaltet Linien-, 
Säulen-, Balken- und Tor- 
tengrafik in maximal vier 
verschiedenen Bildschirm- 
bereichen. Es können ein- 
zelne Spalten sowie eine 
Gesamtübersicht grafisch 
dargestellt werden, selbst- 
verständlich mit Beschrif- 
tung. 

Alles in allem: Ein 
nützliches Programm für 
denjenigen, der seine Kal- 
kulationen nicht mehr 
„zu Fuß“ bewähltigt, das 
zu einem Preis von knapp 
35 Pfund auf Diskette 
keineswegs überteuert ist, 
sofern es hält, was seine 
Hersteller versprechen. 
Alwin Ertl) 


Sarı2zs Eo 
16 / P4/ 116 


Das unabhängige Commodore- Magazin 


Zeitschriften aus dem 
TVCBM-VERLAG 


WETTBEWERB 


K? . UR N 
[1 


6 & N W 1 


Br. 


wAwe 


1000 DM FÜR DA 


22 


WETTBEWERB 


BETTER Ace : aa TR a “ 
NETTER A 


nn... 
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RE NE 4 N 4 © 
Jeden Monat küren wir das „‚Listing des Monats!”’. 
Dafür erhält der Programmierer bare 1000 Mark 
auf die Hand. Allerdings stellen wir schon etliche 

* Anforderungen, irgendein ,„Feld/Wald/Wiesen-Listing” 
SER e: hat da keine Chance. Also: Gehirn einschalten, 
REIS." Gehirnschmalz drauf schmieren und den Schneider 
S anwerfen. Mehr darüber auf unserer Seite 88. 
Preisträger in diesem Monat: Martin Kotulla mit 
seinem Diskettenmanager. 
Herzlichen Glückwunsch! 


5TING DES MO 
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LISTING 


DISKMAN 
MANAGT IHRE DISKETTEN 


Mit DiskMan können Sie auf einfachste Weise Ihre 
Disketten verwalten: Statt sich mit den kompli- 
zierten RSX-Kommandos herumplagen zu müssen, 
arbeiten Sie in einer Benutzerumgebung, die Ähn- 
lichkeiten mit den Betriebssystemen modemer 
32-Bit-Rechner hat. DiskMan verwaltet alle Disket- 
tentypen (Vendor, CP/M-Systemformat und Data- 
Only) außer dem IBM-Format, das allerdings so gut 
wie nie verwendet wird. 

Geben Sie das Programm so ein, wie es im Li- 
sting dargetellt ist. Dann speichern Sie es unbedingt 
erst einmal ab, weil nach dem Programmstart auto- 
matisch Programmteile herausgelöscht werden. 
DiskMan wird ganz normal mit „RUN” gestartet. 
Nach kurzer Wartezeit erscheint die Meldung: 

Bitte drücken Sie auf die SSPACE>-Taste! 

Wenn Sie dieser Aufforderung Folge leisten, 
wird das Programm gestartet und der Bildschirm 
aufgebaut. 

Am rechten unteren Bildrand stehen zwei Dis- 
kettensymbole. Das angewählte (‚‚angemeldete‘‘) 
Laufwerk ist als schwarzer Block dargestellt. 
Darunter finden Sie auch den derzeit gewählten 
Benutzerbereich (USER). 

Sie sehen, daß der Programmpunkt „Dateien“ 
in der Menüleiste stärker umrandet ist als die ande- 
ren Punkte. Dies zeigt an, welchen Menüpunkt Sie 
gewählt haben. Mit den <Cursor>- <Links>- und 
<Cursor>-<Rechts>-Tasten wählen Sie andere Me- 
nüpunkte. Durch Drücken der COPY-Taste wird 
Ihre Wahl bestätigt. Bei „Dateien“ rollt DiskMan 
das folgende Menü aus: 

— Inhalt 

— Löschen 

— Umbenennen 

— Anzeigen 

— Abbrechen 

Hier erscheint der von Ihnen gewählte Unter- 
punkt invers dargetellt; auch hier können Sie einen 
Menüpunkt mit den Cursortasten <Cursor>- 
<Hoch> und <Cursor>-<Runter> auswählen und 
Ihre Entscheidung mit COPY bestätigen. 


INHALT: Ausgabe des Inhaltsverzeichnisses der 
Diskette. 
Sie können Optionen angeben: 


ASSM.* zeigt alle Dateien an, die mit 
„ASSM“ beginnen. 
PROG?.BAS zeigt alle Programme an, deren 


Namen mit „PROG“ beginnen, 
worauf ein beliebiges Zeichen 
folgt. Die Extension der Dateien 
ist „BAS“. 
Die Eingabe des Dateinamens und der Extension 
folgt getrennt; Sie müssen also dazwischen ENTER 
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drücken. Editieren können Sie Ihre Eingabe mit der 
<Cursor>-<Links>-Taste. 

Wollen Sie das gesamte Inhaltsverzeichnis ausge- 
ben, genügt es, zweimal ENTER zu drücken. Da- 
durch wird der vorgegebene Text, der schon auf 
dem Bildschirm steht, übernommen. 

LÖSCHEN: Löschen von einzelnen Dateien oder 
Dateigruppen. 

Nach Eingabe des Namens der Datei(en) werden 
die zugehörigen Dateien gelöscht. Die Dateinamen 
können wie bei INHALT angegeben werden. 


UMBENENNEN: Umbenennen einer Datei. 

Nach Eingabe des alten und des neuen Namens 
wird die angegebene Datei umbenannt. Hier sind 
merdeutige._ Dateinamen mit Fragezeichen und 
Sternchen nicht erlaubt. 


ANZEIGEN: Druckt ASCII-Textdateien auf dem 
Bildschirm aus. 
Dazu muß der Dateiname angegeben werden. 


ABBRECHEN: Durch Anwählen dieses Menü- 
punkts wird das Unterprogramm „Dateien“ verlas- 
sen. 


Der Menüpunkt „Diskette“ 


FORMATIEREN: Hiermit können Sie die Disket- 
te im anzugebenden Laufwerk formatieren: wahl- 
weise als Vendor-Disk (,,V‘‘) oder Data-Disk (,,D‘“). 
Aus einer Vendor-Disk können Sie mit den CP/M- 
Programmen BOOTGEN.COM und SYSGEN.COM 
eine vollständige CP/M-Diskette machen. 


KOPIEREN: Dieser Programmpunkt ruft einen 
Sektorenkopierer auf, mit dem sich Kopien von 
Disketten erzeugen lassen. Sie müssen hier das 
Quell- und das Ziellaufwerk angeben. Sind beide 
identisch, müssen Sie die Disketten während des 
Kopierens mehrmals wechseln. Einfacher geht es, 
wenn Sie zwei Laufwerke besitzen: Das Programm 
kopiert die Diskette dann in einem Durchgang. 


LÖSCHEN: Hiermit wird eine ganze Diskette nach 
einer Sicherheitsabfrage gelöscht. Haben Sie die 
Diskette irrtümlich gelöscht, können Sie das In- 
haltsverzeichnis mit einem Diskettenmonitor wie 
DiskEdit rekonstruieren, wenn Sie Ihren Irrtum 
rechtzeitig bemerken. 


ABBRECHEN: Mit diesem Menüpunkt kommen 
Sie aus dem Disketten-Menü zum Hauptmenü in 
der obersten Bildschirmzeile zurück. 


Bitte lesen Sie weiter auf Seite 30. 


LISTING 


IEEREEKEIKILELKLEIKEIIKEKKIELRLIIERE 
11 ’* 


x 
x 
% 
’% Martin Kotulla x 
’x x 
’%* fuer Schneider aktiv x 
’x x 
’%$ CPC 464/664/6128 % 
’x x 

x 

x 

x 


IERREKKKERKEKKKIKKKKIKKKK ERIK I KU R IX 


150 
160 ’ Deutsche Sonderzeichen und Grafikz 
eichen ZZEZKKEKLLKEKLKKKIKKKKIIIIKIEIKEK 
170 SYMBOL AFTER 64 
180 SYMBOL 64,&1E,&30,&38,&6C,&38,&18,&F 
0 

. 190 
200 
8 
210 
220 


SYMBOL 91,&66,24,60,102,126,102,102 
SYMBOL 92,&66,&38 ,&6C ,&C6 ‚&C6 ‚&6C ,&3 


SYMBOL 93,&66,0,&66,&66,&66 ,&66 ,&3C 
SYMBOL 123,&66,0,&78,&C0,&7C,&0C,&76 
SYMBOL 124,8&66,&0,&3C,&66 ‚&66 ‚&66 ,&3 


SYMBOL 125,&66,0,&66,&66 ,&66 ,&66 ‚&3E 
SYMBOL 126,&7C,&C6 ‚&C6 ‚&FC,&06 ‚&C6 ,& 
F8,&C0 

SYMBOL 128,255,195,129,0,0,129,195,2 


270 SYMBOL 129,255,255,231,195,195,195,1 
95,231 

280 SYMBOL 130,0,0,24,60,60,60,60,24 

290 ’ Maschinencode-Leseroutine X+3XX*2X 
ZEXKEKKTKEKKKIKKIKIKKIKKKIK IK IKK III KIT X 
300 MEMORY 22400 

310 FOR i=39000 TO 39603:READ a: sum=sum+ 
a:POKE i,a:NEXT i 

320 IF sum=69100 THEN 340 

330 PRINT "Fehler in den DATAs!":END 

340 DATA &03,&85,&98,&03,&8A,&98,&C03,&99 
‚&98,&C3,&BD,&98,&03,&F0,&98,&C03 

350 DATA &16,&99,&C03,&07,&99,&03,&A3,&99 
‚C3,&AB,&98,8&03,&A1,&9A,&1E,&C0 

360 DATA &07,&21,&C0,&07,&3C,&C0 ,&07 ,&3F 
‚&C0,&07,&42,&C00,&07,&21,&76,&98 

370 DATA &18,&03,&21,&79,&98,&22,&94 ,&98 
‚SCD,&CF,&98,&DF,&00,&00,&C03,&DB 

380 DATA &98,&CD,&CF,&98,&1E,&00,&16,&00 
‚&0E,&C1,&21,&B3,&9A,&DF,&7C,&98 

390 DATA &C3,&DB,&98,&CD,&CF,&98,&1E,&00 
‚&16,&00,&0E,&C01,&2 
400 DATA &82,&98,&C03,&DB 
‚&1E,&00,&16,&00,&0E,&C1,&2 

410 DATA &9A,&DF,&7F,&98,&03,&DB,&98 ,&3A 
‚&bA,&BB,&32,8&66,&01,&3E 

420 DATA &5A,&BB,&C9,&CB 
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‚&3A,&66,&01,&32,&5A,&BB,&09,&44 
430 DATA &55,&4D,&4D,&59,&2E,&24,&24,&24 
‚&06,&09,&21,&E7,&98,&11,&DF,&9C 
440 DATA &CD,&CF,&98,&CD,&8C ,&BC,&F5 ,&CD 
‚&BF,&BC,&F1,&CD,&DB,&98,&09,&21 
450 DATA &7F,&99,&11,&B5,&9C,&01,&24,&00 
‚&ED,&B0,&0E,&C1,&18,&0D,&21,&5B 
460 DATA &99,&11,&B5,&9C,&01,&24,&00,&ED 
‚&B0,&0E,&41,&16,8&00,&1E,&00,&21 
470 DATA &B5,&9C,&F5,&C5 ,&D5 ,&E5 ,&DF,&82 
‚&98,&E1,&D1,&01,&F1,&FD,&21,&B5 
480 DATA &9C,&FD,&34,&00,&FD,&34,&04,&FD 
‚&34,&08,&FD,&34,&0C,&FD,&34,&10 
490 DATA &FD,&34,&14,&FD,&34,&18,&FD,&34 
‚&1C,&FD,&34,&20,&14,&3E,&28,&BA 
500 DATA &20,&CD,&C9 ,&00 ,&00,&41,&02,&00 
‚&00,8&43,&02 ,&00 ,&00,&45,&02 ,&00 
510 DATA &00,&47 ‚&02,&00,&00,&49,&02,&00 
‚&00,&42,&02,&00,&00,&44 ,&02,&00 
520 DATA &00,&46,&02,&00 ,&00,&48,8&02 ,&00 
‚&00,&C1 ,&02 ,&00 ,&00 ,8C3 ,&02 ,&00 
530 DATA &00,&05 ,&02 ,&00 ‚&00 ‚&C7 ‚&02,&00 
‚&00 ,&C9 ,&02 ,&00,&00 ,&C2 ,&02 ,&00 
540 DATA &00,&04,&02 ,&00 ‚&00 ‚&06 ‚&02 ,&00 
‚&00,8&C8,&02,&1E,&16,&FE,&03,&02 
550 DATA &99,&9A,&CD,&78,&BB,&2E,&00,&25 
‚&E5,&FD,&E1,&DD,&66 ,&05 ‚&DD,&6E 
560 DATA &04,&7E,&1E,&05 ,&FE,&00 ,&CA,&99 
‚&9A,&AF,&06 ,&00,&23,&5E,&23,&56 
570 DATA &ED,&53,&DB,&9C,&ED,&43,&DD,&9C 
‚&3E,&50,&6F,&DD,&7E,&02,&3C,&3C 
580 DATA &1E,&05,&BD,&D2,&99,&9A,&32,&4D 
‚&9A,&3D,&3D,&32,&B4 ,&9C ,&DD,&66 
590 DATA &01,&DD,&6E,&00,&6E,&BD,&28,&03 
‚&D2,&99,&9A,&CD,&BA,&BB,&CD,&06 
600 DATA &BB,&FE,&0D,&CA,&68,&9A,&FE,&F2 
‚&20,&0A,&CD,&8D,&BB,&3E,&08 ,&CD 
610 DATA &5A,&BB,&18,&25,&F5,&CD,&8D,&BB 
‚&F1,&FE,&20,&DA,&F3,&99 ,&FE,&80 


620 DATA &D2,&F3,&99,&2A,&DB,&9C,&ED,&4B 
‚&DD,&9C,&ED,&B1,&28,&08,&3E,&07 

630 DATA &CD,&5A,&BB,&C03,&F3,&99,&CD,&5D 
‚&BB,&CD,&78,&BB,&FD,&E5,&D1,&B7 

640 DATA &ED,&52,&7C,&FE,&00,&20,&0D,&3E 
‚&09,&CD,&5A,&BB,&3E,&07,&CD,&5A 

650 DATA &BB,&C3,&F3,&99,&FE,&50,&DA,&F3 
‚&99,&3E,&07,&CD,&5A,&BB,&3E,&08 

660 DATA &CD,&5A,&BB,&3E,&20,&CD,&5A,&BB 
‚&3E,&08,&CD,&5A,&BB,&C03,&F3,&99 

670 DATA &CD,&8D,&BB,&FD,&E5,&D1,&21,&00 
‚&01,&19,&7C,&3C,&CD,&6F,&BB,&3A 

680 DATA &BA,&9C,&47 ,&DD,&66,&01,&DD,&6E 
‚&00,&77,&23,&5E,&23,&56,&EB,&3E 

690 DATA &08,&CD,&5A,&BB,&CD,&60,&BB,&77 
‚&23,&3E,&09,&CD,&5A,&BB,&10,&F4 

700 DATA &C9,&3E,&7F,&CD,&5A,&BB,&C03,&5A 
‚&BB,&DD,&66,&01,&DD,&6E,&00,&46 

710 DATA &23,&5E,&23,&56,&EB,&11,&90,&65 
‚&C3,8&77,&BC,&00 


LISTING 


720 MODE 2:INK 1,0:INK 0,27:BORDER 10:PE 
N 1:PAPER O0 

730 PRINT:PRINT "Bitte dr}cken Sie auf d 
ie <SPACE>-Taste!" 

740 KEY DEF 47,1,128,128,128:KEY 128, "RU 
N 760"+CHR$ (13) 

750 DELETE 100-750 

760 DISC: ı A 

770 CLS:KEY DEF 47,1,32,32,32:KEY 128,"0 


780 ’ Verbindung zu den Maschi 
men KZELLLLXLLZKLXLKLKILLIIKIKKIIIIII IX 
790 base=39000 ’° Basisadresse der Masch 


inenprogramme 
800 da=base ’ Drive A: Select 
810 db=base+3 ' Drive B: Select 


’ Sector Read 

’ Sector Write 

840 pa=base+t12 ’ Update Params Table 
’ Format As Vendor 
’ Format As Data-Only 

870 ac=base+t21 ’ 
’ 
’ 


Accept String 
880 sft=-base+24 ’ Set Format 
890 oin=base+27 ’ Openin File 


900 xrd=&989D:xrt=&I989F:xrs=&98Al:xra=&9 
910 xwd=&98C1 :xwt=&98C3 : xws=&98C5 : xwa=&9 
920 xfdA=&98AF:xft=&I98B1:xfs=&98B3 :xfa=&9 


ftdrive=&9926 :waitkey%=&BB18 

940 errmsg%=&164:POKE &BE78,255 

950 drive$="A" 

960 valid$="abedefghi jklmnopgrstuvwxyz" 
970 valid$=valid$+" ABCDEFGHILJKLMNOPGRSTU 
VWXYZ" 

980 valid$=valid$+"12345678903?$£"@ " 
990 ON ERROR GOTO 4350 ö 
1000 FOR i=0 TO 5:READ mlin$(i):NEXT i 
1010 DATA " Dateien "," Diskette "," Lau 
fwerk " 

1020 DATA " CP/M-Start "," Benutzer "," 
Ende " 

1036 DIM men$(3,5) 

1040 FOR i=0 TO 4:READ a$ 

1050 men$(0,i)=" "+a$+" ":NEXTi 

1060 FOR i=0 TO 3:READ a$ 

1070 men$(1,i)=" "+a$+" ":NEXTi 

1080 DATA "Inhalt" ,"L!schen" , "Usbenennen 
","Auflisten" 

1090 DATA "Abbrechen" , "Formatieren", "Kop 
ieren" ,"L}schen", "Abbrechen" 

1100 row%=396 :column%=22:breite%=2:breit 
2%=2 

1110 FOR 1p%=0 T0 5 


1120 text$=mlin$(1p%) 

1130 menu% (1p%)=column% 

1140 length%(1pX)=LEN(text$) 
1150 GOSUB 3590 
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1160 NEXT 1p% 

1170 MOVE 2,370:DRAW 640,370 

1180 FOR i=638 TO 640:MOVE i,370:DRAW i, 
12:NEXT i 

1190 FOR i=0 TO 1:MWWVE 1,370:DRAW i,12:N 
EXT i 

1200 MOVE 2,12:DRAW 640,12 

1210 breite%=5:breit2%=3 

1220 WINDOW 2,79,3,24 

1230 yc%=0:xc%=576:GOSUB 3930 :yc%=100:xc 
%-576:G0OSUB 3850 

1240 TAG:MOVE 475,210:PRINT "Laufwerk A: 
"> : TAGOFF 

1250 TAG:MOVE 475,110:PRINT "Laufwerk B: 
"> : TAGOFF 

1260 sel%=0 

1270 row%=396 :column%=22:breite%=5:breit 
2%=3:text$=" Dateien ":GOSUB 3590 

1280 usr%=PEEK (PEEK (&BEAO) +PEEK(&BE41)*2 
56-527) 

1290 TAG:MOVE 475,40:PRINT "Benutzerbere 
ich:";usr%; :TAGOFF 

1300 row%=396 : in$=INKEY$:IF in$="" THEN 
1280 

1310 IF in$=CHR$(&EO) THEN 1430 

1320 IF in$<>CHR$(&F2) AND in$<>CHR$ (&F3 
) THEN 1280 

1330 text$=mlin$(sel%) 

1340 elem%=sel%:GOSUB 3730 

1350 IF in$=CHR$(&F2) THEN sel%=sel%-1 
1360 IF in$=CHR$(&F3) THEN sel%=sel%+1 
1370 IF sel%<0 THEN se1%=5 

1380 IF sel%>5 THEN sel%=0 

1390 text$=mlin$(sel%) 

1400 breite%=5:breit2%=3 

1410 column%=menu% (se1%) :GOSUB 3630 

1420 GOTO 1280 

1430 ON sel%+1 GOTO 1450,2250,3140,3380, 
3430, 3550 

1440 ’ we: Dateien ZXXLL2E22Xx%X 
KELLKKEKLLLKKKKRKEKKKKEKRLKKKIEKKLKKI KR 
1450 FOR i=160 TO 164:MOVE 0,1:DRAW 150, 
i:NEXT i 

1460 FOR i=150 TO 156:MOVE i,160:DRAW i, 
370:NEXT i 

1470 FOR i=156 TO 157:MOVE 0,1:DRAW 160, 
i:NEXT i 

1480 FOR i=160 TO 162:MOVE i,156:DRAW i, 
370:NEXT i 

1490 num%=4:c01%=3 :choice%=4 :win%=0 :GOSU 
B 4050 

1500 ON choice%+1 GOTO 1520, 1660,1800,19 
80,2210 

1510 ?’ Dateien: Inhalt -——------— 
1520 x=182:y=164:x1%=206:y1%=30:GOSUB 42 
40 


1530 LOCATE 25,14:PRINT "Optionen: 
222.272"; 


2227? 


LISTING 


1540 LOCATE 35, 14:b$=SPACE$ (20) 

1550 CALL ac,@valid$,8,@b$ 

1560 LOCATE 44,14:c$=SPACE$ (3) 

1570 CALL ac,@valid$,3,@c$ 

1580 b$=b$+"."+c$ 

1590 GOSUB 4460 

1600 WINDOW 4,50,3,23 

1610 }DIR,@b$ 

1620 GOSUB 4200 

1630 GOSUB 4460 

1640 WINDOW 2,79,3,24:GOTO 1280 

1650 ’ Dateien: Loeschen ---——----— 
1660 x=182:y=164:x1%=214:y1%=30:GOSUB 42 
40 

1670 LOCATE 25,14:PRINT "Dateiname: ???? 
?272272,222"; 

1680 LOCATE 36,14 

1690 b$=SPACE$ (20) 

1700 CALL ac,@valid$,8,@b$ 

1710 LOCATE 45,14 

1720 c$=SPACE$ (3) 

1730 CALL ac,@valid$,3,@c$ 

1740 b$=b$+" ."+c$ 

1750 x=182:y=100:x1%=214:y1%=30:GOSUB 42 

40 ; 

1760 LOCATE 25,18:GOSUB 4570 

1770 IF c$="J" THEN !ERA,@b$ 

1780 GOSUB 4460:G0TO 1280 

1790 ?’ Dateien: Umbenennen --———-- 
1800 x=182:y=164+64:x1%=220 :y1%=30 :GOSUB 
4240:y=164:GOSUB 4240 

1810 LOCATE 25,10:PRINT "Alter Name: ??? 
222272.222"5 

1820 LOCATE 25,14:PRINT "Neuer Name: ??? 
1830 LOCATE 37,10 

1840 b$=SPACE$ (20) :CALL ac,@valid$,8,@b$ 
1850 LOCATE 46,10 

1860 c$=SPACE$ (3) :CALL ac,@valid$,3,@c$ 
1870 old$=b$+"."+c$ 

1880 LOCATE 37,14 

1890 b$=SPACE$ (20) :CALL ac,@valid$,8,@b$ 
1900 LOCATE 46,14 

1910 c$=SPACE$ (3) :CALL ac,@valid$,3,@c$ 
1920 neu$=b$+"."+c$ 

1930 x=182:y=100:x1%=214:y1%=30:GOSUB 42 


1940 LOCATE 25,18:G0SUB 4570 

1950 IF c$="J" THEN !REN,@neu$,@o1ld$ 
1960 GOSUB 4460:G0T0 1280 

’ Dateien: Auflisten -————— 


1980 x=182:y=164:x1%=220:,y1%=30:GOSUB 42 


227? 


1990 LOCATE 25,14:PRINT "Dateiname: 


2000 LOCATE 36,14 
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2010 b$=SPACE$ (20) :CALL ac,@valid$,8,@b$ 
2020 LOCATE 45,14 

2030 c$=SPACE$ (3) :CALL ac,@valid$,3,@c$ 
2040 b$=b$+"."+c$ 

2050 GOSUB 4460 

2060 WINDOW 2,79,3,24:CLS:GOSUB 4460 
2070 CALL oin,@b$ 

2080 WHILE NOT EOF 

2090 LINE INPUT £9,a$ 

2100 PRINT LEFT$(a$,77) 

2110 WEND 

2120 CLOSEIN:MEMORY 22400 

2130 PRINT: PRINT: PRINT: PRINT 

2140 GOSUB 4200 

2150 WINDOW 2,79,3,24:CLS 

2160 TAG:MOWVE 475,210:PRINT "Laufwerk A: 
"> :TAGOFF 

2170 TAG:MOVE 475,110:PRINT "Laufwerk B: 
"s : TAGOFF 

2180 yc%=0:xc%=576:G0SUB 3930 :ycX%=100:xc 
%-576:GOSUB 3850 

2190 GOTO 1280 


2210 GOSUB 4460 
2220 WINDOW 2,79,3,24 
2230 GOTO 1280 
2240 ’ we: Diskette ZIE22XXEXrrX 
KELTERELELELTELLREKTKRELERELTELEIEXENT 
2250 FOR i=122 TO 128:MOVE i,370:DRAW i, 
220:NEXT i 

2260 FOR i=258 TO 264:MOVE i,370:DRAW i, 
220:NEXT i 

2270 FOR i=219 TO 222:MOVE 122,1:DRAW 26 
4,1:NEXT i 

2280 FOR i=114 TO 116:MOVE i,370:DRAW i, 
210:NEXT i 

2290 FOR i=269 TO 271:MWWVE i,370:DRAW i, 
210:NEXT i 

2300 FOR i=210 TO 212:MOVE 114,1:DRAW 27 
0,1:NEXT i 

2310 num%=3:c01%=18:choice%=3:win%=1:G0S 

UB 4050 

2320 ON choice%+1 GOTO 2340,2470,3080,31 
20 

2330 ’° Diskette: Formatieren —--——--— 
2340 x=182:y=164:x1%=254 :y1%=30 :GOSUB 42 
40 

2350 LOCATE 25,14:PRINT "Vendor- oder Da 
ten-Format? *" ;CHR$(8); 

2360 a$="dvDV*":b$="d":CALL ac,@a$,1,@b$ 
2370 b$=UPPER$ (b$):IF b$<>"D" AND b$<>"V 
" THEN 2450 

2380 x=182:y=100:x1%=254:y1%=30:GOSUB 42 
40 

2390 LOCATE 25,18:PRINT "Laufwerk A oder 
B? *";CHR$(8); 

2400 a$="tabAB":c$="d":CALL ac,@a$,1,0c$ 39 
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2410 c$=UPPER$(c$) :IF c$>"A" AND c$<>"B 
" THEN 2450 

2420 IF c$="A" THEN POKE ftdrive,O ELSE 

POKE ftdrive,i 

2430 IF b$='"V" THEN GOSUB 4540 

2440 IF b$="D" THEN GOSUB 4550 

2450 GOSUB 4460:G0TO 1280 

2460 ’ Diskette: Kopieren ——--— 
2470 x=182:y=164+32:x1%=170:y1%=30 :GOSUB 
4240:y=164-16:GOSUB 4240 

2480 LOCATE 25,12:PRINT "Quell-Laufwerk: 
x" 

2490 LOCATE 25,15:PRINT "Ziel-Laufwerk: 
x" 

2500 LOCATE 41,12:a$="*ABab" :b$="A" 

2510 CALL ac,@a$,1,@b$:qu$=UPPER$ (b$) 
2520 IF qu$="%*" THEN GOSUB 4460:G0T0 128 
0 

2530 LOCATE 41,15:a$="%ABab" :b$="A" 

2540 CALL ac,@a$,1,@b$:21i$=UPPER$ (b$) 
2550 IF zi$="*'" THEN GOSUB 4460:G0T0O 128 
0 

2560 IF qu$="A" THEN POKE xrd,0 ELSE POK 

E xrd,1 

2570 IF zi$="A" THEN POKE xwd,0 ELSE POK 

E xwd,1 

2580 drvold$=drive$:drive$=qu$:GOSUB 381 
O:drive$=drvold$ 

2590 IF zi$="A" THEN POKE ftdrive,O ELSE 
POKE ftdrive,i 

2600 IF qu$=zi$ THEN 2710 

2610 IF format=&41 THEN GOSUB 4540 ELSE 

GOSUB 4550 

2620 FOR trk%=0 TO 39 


2630 FOR sec%=1 TO 9 

2640 POKE xrt,trk%:POKE xwt, trk% 
2650 POKE xrs, formsat-1+secX 
2660 POKE xws, format-1+sec% 

2670 CALL srd:CALL swt 

2680 NEXT sec% 


2690 NEXT trk% 

2700 GOSUB 4460:G0OTO 1280 

271C x=10:y=100:x1%=342:,y1%=30:GOSUB 424 
0 

2720 WHILE INKEY$<>"":WEND 

2730 LOCATE 3,18:PRINT "Zum Formatieren 

bitte Zieldisk einlegen!" 

2740 CALL waitkey%:LOCATE 3,18:PRINT SPA 
CE$(40) 

2750 IF format=&41 THEN GOSUB 4540 ELSE 

GOSUB 4550 

2760 trk%=0:sec%=1 

2770 FOR i=1 TO 12 


2780 oldtrk%=trk%:oldsecX=sec%:ad=22 
500 
2790 WHILE INKEY$<>"" :WEND 


2800 LOCATE 3,18:PRINT " Bitte legen 
Sie die Quelldiskette ein! " 


28 


2810 CALL waitkey%:LOCATE 3,18:PRINT 
SPACE$ (40) 

2820 FOR 3=1 TO 30 

2830 POKE xrt,trk%:POKE xrs,sec% 


+format-1:secX=secX+1 


2840 IF sec%)9 THEN sec%=1:trk%= 
trk%+1 : 

2850 POKE xra,255 AND UNT(ad) 
2860 POKE xrat1,255 AND INT(ad/2 
56) 

2870 ad=ad+512 

2880 CALL srd 

280 NEXT j 

29000  trk%=oldtrk&:seck-oldseck:ad=22 
500 

2910 . WEILE INKEY$<>"":WEND 

29220 _LOCATE 3,18:PRINT " Bitte legen 


Sie die Zieldiskette ein! " 


2930 CALL waitkey%:LOCATE 3,18:PRINT 
SPACE$ (40) 

2940 FOR j=1 TO 30 

2950 POKE xwt, trk%:POKE xws,sec% 
+format-1 

2960 sec%=secX+1:IF sec%>9 THEN 


seck=1:trk%=trk%+1 


2970 POKE xwa,255 AND UNT(ad) 
2980 POKE xwa+t1,255 AND INT(ad/2 
56) 

2990 ad=ad+512 

3000 CALL swt 

3010 NEXT j 

3020 NEXT i 


3030 WINDOW 2,79,3,24:CLS:GOSUB 4460 
3040 TAG:MOVE 475,210:PRINT "Laufwerk A: 
" : TAGOFF 

3050 TAG:MOVE 475,110:PRINT "Laufwerk B: 
" : TAGOFF 

3060 yc%=0:xc%=576:GOSUB 3930 :yc%=100:xc 
%-576:G0OSUB 3850:GOTO 1280 

3070 ’ Diskette: Loeschen ---—---——— 
3080 x=182:y=164:x1%=174:y1%=30:G0OSUB 42 
40 

3090 LOCATE 25,14:G0SUB 4570 

3100 IF c$="J" THEN a$="%.%":!ERA,@a$ 
3110 ’ Diskette: Abbrechen —----— 
3120 GOSUB 4460:G0TO 1280 

3130 ” Hauptmenue: Laufwerk ZI222I2I2I2X 
rs rss rs 3 sr rs Es Le La 1 3 7° 1 3 3 32 727 3 
3140 x=134:y=164+192:x1%=290:y1%=188:G08 
UB 4240 

3150 LOCATE 20,3:PRINT "Das angemeldete 
Laufwerk ist ";drive$;":" 

3160 LOCATE 20,5:PRINT "Wenn Sie das and 
ere Laufwerk" 

3170 LOCATE 20,7:PRINT "spezifizieren wo 
llen, dr}cken" 

3180 LOCATE 20,9:PRINT "Sie bitte OOPY, 
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sonst eine" 

3190 LOCATE 20,11:PRINT "beliebige ander 

e Taste!" - 

3200 a$=INKEY$:IF a$="" THEN 3200 

3210 IF a$<>CHR$(224) THEN GOSUB 4460:G0 

TO 1280 

3220 drvold$=drive$ 

3230 IF drive$="A" THEN drive$="B":CALL 

db:yc%=100:G0TO 3250 

3240 IF drive$="B" THEN drive$="A":CALL 

da:yc%=0 

3250 IF PEEK(errmsg%)=0 OR PEEK(errmsg*%) 

=1 THEN 3300 

3260 x=134:y=156:x1%=274:,y1%=44:GOSUB 42 

40 

3270 LOCATE 20,15:PRINT CHR$(7) ;"Fehler: 
";drive$;": nicht ansprechbar!" 

3280 GOSUB 4200 

3290 drive$=drvold$:GOSUB 4460:G0TO 1280 

3300 GOSUB 4460 

3310 FOR i=576 TO 630:MOVE i,yc%+110:DRA 

WR 0,-50,0:NEXT i 

3320 PLOT 700,700,1 

3330 IF drive$<>"A" THEN 3350 

3340 yc%=0 :xc%=576:G0SUB 3930 : yc%=100 
:xc%=576:GOSUB 3850:GOTO 3360 

3350 yc%=0:xc%=576:G0OSUB 3850 :yc%=100:xc 

%-576:G0OSUB 3930 

3360 GOTO 1280 

3370 ’ we: CP/M-Start 33333337% 
sr 3233233233333 227233333232332 322333577 
3380 x=182:y=164:x1%=174:y1%=30:G0OSUB 42 

40 

3390 LOCATE 25,14:G0OSUB 4570 

3400 IF c$="J" THEN !CPM 

3410 GOSUB 4460:G0T0 1280 

3420 ’ : Benutzer Z3XXX373IX73X 
La a a a a a re ar ar E37 pr > > 3 3 33 3 332272332 7 
3430 x=134:y=164+192:x1%=310:y1%=188+48: 

GOSUB 4240 

3440 LOCATE 20,3:PRINT "Hiermit k!nnen S 
ie die User-" 

3450 LOCATE 20,5:PRINT "Nummer neu festl 

egen. Wenn Sie" 

3460 LOCATE 20,7:PRINT "die Benutzer-Num 

mer ver{ndern" 

3470 LOCATE 20,9:PRINT "wollen, geben Si 
e bitte eine Zahl" 

3480 LOCATE 20,11:PRINT "von 0-15 ein, s 
onst nur: ENTER." 

3490 LOCATE 20,14:PRINT "Welche User-Num 

mer? "; 

3500 a$="0123456789" :b$=SPACE$ (2) :CALL a 
c,@a$,2,@b$ 

3510 IF b$<>" " THEN usr%=VAL(b$) ELSE 
GOSUB 4460:G0T0O 1280 

3520 IF usr%<16 THEN !USER,usr%:GOSUB 44 
60:GOTO 1280 

3530 PRINT CHR$(7);:GOSUB 4460:G0TO 1280 
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3540 ’ : Ende SSI2EEEEEEEERERR 
ZIIILILLLERLERLERRELRISTETEIIIEREIIERR 
3550 x=182:y=164:x1%=174:y1%=30:GOSUB 42 
40 

3560 LOCATE 25,14:GOSUB 4570 

3570 IF c$="J" THEN END 

3580 GOSUB 4460:G0TO 1280 

3590 PLOT 640,400,1:MOVE column%+5 , rowX%- 

2 

3600 TAG 

3610 FOR laen%=1 TO LEN(text$) :PRINT MID 

$(text$,laen%,1);:NEXT laen% 

3620 TAGOFF 

3630 MOVE column%, row%+2:DRAWR 8$LEN(tex 

t$)+9,0,1 

3640 MOVE column%, rowX%+4 :DRAWR 88$LEN(tex 

t$)+9,0 

3650 FOR i=1 TO breite% 

3660 DRAWR 0,-22:MWER 1,22:NEXT i:MVER 
-1,0 

3670 MOVER 0,-22:xp%=XPOS : yp%=YPOS:row2% 

ZrOWX% 

3680 FOR i=1 TO breit2%:yp%=yp%-1:row2%= 

row2%-1 

3690 MWE xp%,yp%:DRAW column%, row2%-18: 

NEXT i j 

3700 DRAWR 0,23:MOVER -1,-23:DRAWR 0,23 

3710 column%=column%+8#2LEN(text$)+26 

3720 RETURN 

3730 column%=menuX%(elea%) :iIn%=length% (el 

em%) :MOVE column% , row%+2 

3740 MOWVER 8%$LEN(text$)+9,0 

3750 FOR i=1 TO 5:DRAWR 0,-22,0:MWWER 1, 

22:NEXT i 

3760 MWWER 0,-20:xp%=XPOS : yp%=YPOS:r0w2% 

ZIToW% 

3770 FOR i=3 TO 5:ypX%=ypX-1:row2%=row2%X- 

1 

3780 MOVE xp%,yp%:DRAW column%-2,row2%-1 

8,0:NEXT i 

3790 breite%=2:breit2%=2:G0SUB 3590 

3800 RETURN 

3810 CALL pa: fdcblock=PEEK (&BE42)+PEEK(& 

BE43) x256 

3820 IF drive$="B" THEN fdcblock=fdcbloc 

k+64 

3830 format=PEEK(fdcblock+&F) 

3840 RETURN 

3850 PLOT 700,700,1 

3860 FOR i=xc% TO xc%+50:MWVE i,yc%+t110: 

DRAWR 0,-50:NEXT 

3870 TAG:MOVE xc%t+22,yc%+94:PRINT CHR$(1 

28); 

3880 MOVE xc%t22,yc%+80:PRINT CHR$(129); 

3890 MOVE xc%t+22,yc%+78:PRINT CHR$ (129); 

3900 FOR i=xc%+4 TO xc%+17:MOVE i,yc%t+10 

6:DRAW i1,yc%+99,0:NEXT 

3910 TAGOFF:PLOT 700,700,1 

3920 RETURN 
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3930 PLOT 700,700,1 

3940 MOVE xc%,yc%+110:DRAWR 0,-50:DRAWR 
50,0:DRAWR 0,50:DRAWR -50,0 

3950 MOVE xc%+1,yc%+110:DRAWR 0,-50:DRAW 

R 50,0:DRAWR 0,50:DRAWR -50,0 

3960 PRINT CHR$(23)CHR$ (3); 

3970 TAG:MOVE xc%+22,yc%+94:PRINT CHR$(2 
31); 

3980 MOVE xc%t+22,yc%+80:PRINT CHR$(130); 
3990 MOVE xc%t+22,yc%+78:PRINT CHR$ (130); 
4000 FOR i=xc%+4 TO xc%+17:MOVE i,yc%+10 
6:DRAW 1,yc%+99,1:NEXT 

4010 TAGOFF:PLOT 700,700,1 

4020 PRINT CHR$(23)CHR$(0); 

4030 RETURN 

4040 FOR i=0 TO nwm%:LOCATE po,i+3:PRINT 
men$ (win%,i):NEXT i 

4050 row%=4 

4060 PEN 1:FOR i=0 TO nwa%:LOCATE col%,r 
on%+i*2-2:PRINT men$(win%,i):NEXT i 

4070 PEN 1:1LOCATE col%,choice%#2+row%-2 
4080 PRINT CHR$ (24) ;men$ (win%,choice%) ;C 
HR$ (24) 

4090 a$=INKEY$ 

4100 IF a$=CHR$(224) THEN 4190 ’ Copy ge 
drueckt 


4110 IF a$="" OR (a$<>CHR$(&FO) AND a$<> 
CHR$(&F1)) THEN 4090 

4120 LOCATE col%,choice%#2+row%-2 : PRINT 
men$ (win%,choice%) 

4130 IF a$=CHR$(&FO) THEN choice%=choice 
%-1 ELSE choice%=choiceX%t+1 

4140 IF choice%<0 THEN choiceX%=mm% 

4150 IF choice%’num% THEN choice%=0 

4160 SOUND 1,1000,1 " 

4170 LOCATE col%,choice%#2+row%-2 

4180 PRINT CHR$ (24) ;men$ (win%,choice%) ;C 
HR$ (24) :GOTO 4090 

4190 RETURN 

4200 x=60:y=60:x1%=40:y1%=40:GOSUB 4240 
4210 WHILE INKEY$<>"" :WEND 

4220 MOVE x+12,y-12:TAG:PRINT "Ok?" ;:TAG 
OFF 

4230 CALL waitkey%:RETURN 

4240 MOVE x,y:DRAWR 0,-y1%:DRAWR x1%+4,0 
:DRAWR 0,y1%+2:DRAWR -x1%-4,0 

4250 FOR 11%=0 TO 4 

4260 MWE x+11%,y:DRAWR 0,-y1% 

4270 DRAWR x1%,0:DRAWR 0,y1% 

4280 DRAWR -x1%,0 

4290 NEXT 11% 

4300 FOR 11%=0 T0 2 

4310 MWNE x,y+11%:DRAWR 0,-y1% 

4320 DRAWR x1%,0:DRAWR 0,y1% 


4350 x=60:y=60:x1%=110:y1%=40:G0OSUB 4240 
4360 WHILE INKEY$<>"":WEND 
4370 MOVE x+16,y-12 


4380 TAG:PRINT "Fehler! Ok?" ; :TAGOFF 
4390 CALL waitkey% 

4400 FOR x=50 TO 180 

4410 MOVE x,70 

4420 DRAWR 0,-50,0 

4430 NEXT x 

4440 PLOT 700,700,1 

4450 RESUME 1300 

4460 ORIGIN 0,0,8,460,368,14 

4470 CLG:ORIGIN 0,0,0,640,0,400 

4480 FOR i=8 TO 2 STEP -1 

4490 ME 1,366 

4500 DRAW 1,14,0 

4510 NEXT i 

4520 PLOT 700,700, 1:RETURN 

4530 ’ Formatierung von Disketten #t333% 
ZERKKLKEKLLKELKKKKKEKKKIKIKIKKI KICK 
4540 CALL fv:RETURN 

4550 CALL fd:RETURN 

4560 ’ Sind Sie sicher?-Frage XXX XX 
XZEXKLLKELKIEKKIKKEKKEKIKIKKIIIIKKI IK 
4570 PRINT "Sind Sie sicher? N" ;CHR$(8); 
4580 a$="JNjn":c$="N" - 

4590 CALL ac,@a$,1,@c$:c$=UPPER$(c$) :RET 


DISKMAN 


Fortsetzung von Seite 24 


Mit diesem Menüpunkt können Sie die Arbeit mit 
DiskMan beenden. Nach einer Sicherheitsabfrage 
wird das Programm gestoppt, und der Computer 
kehrt nach Basic zurück. Da DiskMan aber eine 
Reihe von Systemparametern verstellt, ist es emp- 
fehlenswert, einen Reset auszulösen, bevor man 
weiterarbeitet. 


Laufwerk 


Hier erhalten Sie eine Meldung, welches Lauf- 
werk gerade aktiv ist. Wollen Sie auf das andere 
Laufwerk wechseln, drücken Sie COPY, sonst 
eine andere Taste. Die beiden Diskettensymbole 
rechts unten am Bildschirm tauschen ihr Ausse- 
hen, wenn Sie das Laufwerk wechseln. 


CP/M-Start 


Nach einer Sicherheitsabfrage, während der Sie 
eine CP/M-Diskette einlegen können, wird das 
CP/M-Betriebssystem geladen. 


Benutzer 


Hiermit können Sie den Benutzerbereich (User- 
Nummer) festlegen. Der gewählte Benutzerbereich 
erscheint rechts unten auf dem Bildschirm. 

(Martin Kotulla) 


Themen u.a. Betriebssystem Flex: PL/9, 
Neue Hard- und Software für EC-65 Copycat. 


Al Be : Die Ken Disk 2 6502-Modemprogramm: Dieses Pro- 
ontroller" -Karte ermöglicht An- gramm ermöglicht den Datenaus- 
schluß von Harddisk-Laufwerken und tausch von "'65er’’-Computern unter- 
kann alle gängigen Diskettenformate = einander, zwischen ''65er’’- und 


VErWalteN: ''80er’’-Computern und zwischen 
Farbgrafik-Terminal zum Selbstbau: & 6 ee Den 
Source-Listings als Free-Soft auf Dis- m 
kette zur Verfügung, damit Anpas- . 2 Grundlagen-Beiträge: 
sung an alle Computer-Systeme j TER . Laserdrucker: Technik, Aufbau und 
möglich. sy ee Anwendungsmöglichkeiten der 

| Druckertechnologie der Zukunft. 


V 30 (Teil 2): Umfassende Beschrei- 
bung der Programmierung des V 30 
Maus-Interface (Teil 2): Platine und - en 
Baubeschreibung. Für verschiedene 

marktgängige ''Mäuse’’ geeignet. Pr 65816 (Teil 4): Darstellung der 
Laser-Drucker: Die Technik © 65816 « V30 Interrupt-Struktur zu diesem Mikro- 


Universal Disk Controller e Grafik Terminal ı 
EC-68 K: MIDI-, Centronics- und Veee Segen e : der (gegenüber 6502) 
Sound-Interface-Karten, Netzteil. = Ende NEUSNBEIENIE: 


Selbstbau-Plotter (Teil 2): Mechanik, 
Elektronik, Software. 


Die ganz andere 
Computer-Zeitschrift. 
Für Leute, die mehr wissen 
und mehr machen wollen. 
Überall zu haben, wo es 
"Elektor’’ gibt. 

Und direkt vom Verlag. 


Elektor Verlag GmbH, Süsterfeldstr. 25, 5100 Aachen, Telefon (0241) 81077 
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BUSINESS 
GRAPHICS 


Dieses Programm ermöglicht es Ihnen, Säulen-, 
Kreis- und Liniengrafiken bequem auf dem Bild- 
schirm darzustellen. Eine Hardcopy-Option für 
den DMP 2000 wurde in BASIC implementiert; 
durch einfache Änderung des Steuercodes ist somit 
eine Anpassung an andere Drucker möglich. 
Zunächst müssen Sie mit dem Menüpunkt „Da- 
tei einrichten“ Ihr Zahlen passend vorbereiten. In 
einer Datei können Sie fast beliebig viele Kolonnen 
unterbringen. Die erste Eintragung ist die Anzahl 
der Datenkolonnen. Die erste Zahl jeder Kolonne 
gibt an, wieiviele Werte die Kolonne enthält. 
Danach kommen die Daten. Zur Verdeutlichung 
ein Beispiel: 
Daten „Kleinkleckersdorfer Nachrichten“ 


Jahr Auflage Preis 
1980 10.000 0,80 
1981 12.000 0,80 
1982 13.500 0,95 
1983 14.000 1,00 
1984 14.000 1,00 
1985 13.900 1,20 


Angenommen, Sie wollen Auflage und Preis in 
einer Datei unterbringen. Geben Sie also an: 

Dateiname? KKDNACHR 

Wieviele Zahlenkolonnen? 2 

Kolonne 1 

Wieviele Werte? 6 

Dann der Reihe nach: 

10000, 12000, 13500, 14000, 14000, 13900 

Kolonne 2 

Wieviel Werte? 6 

Dann der Reihe nach: 

0.8,0.8,0.95,1,1,1.2 

Weitere Datei einrichten? N 

Jetzt können Sie an die grafische Darstellung ge- 
hen. Dazu wählen Sie Z (für „Zeichnen“) in der 
Hauptauswahl. Danach erscheint die entsprechende 
Auswahllliste in der unteren Bildschirmzeile. 

Hier müssen Sie zuerst einen Bildschirmbereich 
zum Zeichnen wählen. Drücken sie B und lenken 
Sie anschließend das Kreuzchen, das auf dem Bild- 
schirm erscheint, an eine Ecke des gewünschten 
Zeichenbereichs und drücken Sie auf den Feuer- 
knopf. Danach können Sie wieder mit dem Joy- 
stick die Größe des gewünschten Rechtecks bestim- 
men. Noch ein Druck auf den Feuerknopf, und die 
Auswahlliste erscheint wieder. 

Drücken Sie jetzt Z. Der Computer fragt Sie 
nach dem Namen der Datei und der Nummer des 
gewünschten Blocks. Wenn Sie also die Preis ent- 
wicklung der Kleinkleckersdorfer Nachrichten gra- 
fisch darstellen wollen, geben Sie ein: 

Datei? KKDNACHR 

Block? 2 


32 


Nachdem die Werte eingelesen sind, können Sie 
wählen zwischen 

S)äulen, 

K)reis und 

L)inie 

Beachten Sie, daß unter den Zahlen keine nega- 
tiven Werte sein dürfen, wenn Sie die Kreisdarstel- 
lung wählen. Bei Säulen- und Kreisgrafik können 
Sie jeden Abschnitt noch durch ein besonderes 
Muster hervorheben, wenn Sie dies wünschen. Wäh- 
len Sie einfach in der Liste, die jeweils erscheint. 

Bei der Liniengrafik gibt es einige Besonderhei- 
ten zu beachten. Bevor gezeichnet wird, erscheinen 
der niedrigste und der höchste Wert der Kolonne. 
Sie können diese Werte verändern, z.B. wenn Sie 
zwei Grafiken übereinander darstellen wollen: 

Grafik A: Minimum 20, Maximum 40 

Grafik B: Minimum 10, Maximum 30 

Wählen Sie hier bei beiden 0 als Minimum und 
40 als Maximum. Sonst spielt Ihnen die automati- 
sche Maßstabsanpassung einen Streich und der 
Vergleich der beiden Darstellungen ist nichts mehr 
wert! Nachdem diese Werte eingegeben sind, kön- 
nen Sie noch zwischen vier.verschiedenen Darstel- 
lungsformen für die Linie wählen, und los geht’s. 

Der Menüpunkt ‚Linie‘ dient dazu, per Hand 
eine Gerade zu ziehen. Lenken Sie das Kreuz an den 
Anfangspunkt und drücken Sie auf den Feuerknopf. 
Danach können Sie mit dem Joystick die Linie 
solange verlängern, verkürzen und verschieben, bis 
sie richtig plaziert ist. Ein weiterer Druck auf den 
Beuerknopf‘ fixiert sie endgültig. 

S wie „Schreiben“ dient dazu, einen Text in die 
Zeichnung einzutragen. Zunächst lenken Sie mit 
dem Joystick ein Quadrat über den Bildschirm, das 
Ihnen die Position des ersten Zeichens anzeigt. 
Nach einem Druck auf den Feuerknopf erscheint 
in der unteren Zeile die Frage „Text?“. Eventuell 
tauchen dahinter einige Joystick-Steuerzeichen auf. 
Beseitigen Sie diese, indem Sie die Taste DEL bis 
zum Piepton gedrückt halten. Danach können Sie 
den gewünschten Text eingeben, der prompt auf 
dem Bildschirm erscheint. 

Wenn Sie als ersten Buchstaben CTRL-W tippen 
und anschließend eine Zahl eingeben, erscheint 
statt eines Textes der Wert des angegebenen Ele- 
ments aus der Zahlenkolonne. Angenommen, Sie 
wollen die Säulen für die Auflagenzahlen der Klein- 
kleckersdorfer Nachrichten beschriften. Lenken Sie 
dazu das Quadrat über die erste Säule und geben 
Sie als Text ein: CTRL-W 1. Es erscheint die Zahl 
10000. Ebenso verfahren Sie mit den Säulen 2 bis 
6. Beachten Sie aber, daß nur die Werte der zuletzt 
zum Zeichnen eingelesenen Zahlenkolonne zur Ver- 
fügung stehen! Wenn Sie mehrere Grafiken auf dem 
Bildschirm unterbringen wollen, sollten Sie jede 
Darstellung sofort nach dem Zeichnen beschriften. 

A bedeutet: Ausschnitt löschen. Dieser Menü- 
punkt ist für den Fall vorgesehen, daß eine Zeich- 
nung mißlungen ist oder eine Beschriftung falsch 
plaziert wurde. Stellen Sie aber sicher, daß der 
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LISTING 


mars 22222222222222222227 7; 
11 ’* x 
12 ’* BUSINESS GRAPHICS x 
13 ’x x 
14 ’* Alwin Ertl x 
15 ’x x 
16 ’%* fuer Schneider aktiv x 
17 ’x x 
18 ’* CPC 464/664/6128 x 
19 ’x x 
20 ’* 032 x 
21 ’x x 
22 ’ERRERKEKKKKKKKKKKKKKKKKIIII IKK KK II X 


130 ’ 

140 ’ %** Hauptprogramm **% 

150 ’ 

160 DIM dat (50) :x=0:y=20 

170 m1$=CHR$(24)+"B)ildausschnitt Z)eic 

hnen L)inie S)chreiben A). loe. D)is 

k C)opy E)nde"+CHR$ (24) :m2$=CHR$ (24) +" 

S)aeulen K)reis L)inie R)ueckkehr"+CH 

R$ (24) :leer$=SPACE$ (79) 

180 s1$=CHR$(24)+"V)ertikale Schr. H)or 

izontale Schr. A)usfuellen K)ariert L 

)eer"+CHR$ (24) :s2$=CHR$ (24)+"S)chraffier 

en A)usfuellen L)eer"+CHR$ (24) :s3$=CHR 

$(24)+"P)unkte S)triche K)reuzchen D) 

urchziehen"+CHR$ (24) 

190 s4$=CHR$ (24)+"S)peichern L)aden”+CH 

R$(24) 

200 INK 0,0:PAPER 0:BORDER 0:INK 1,15:PE 

N 1:MODE 2 

210 ’Menue 

220 PRINT CHR$(24);"CPC Business Graphic 

s V1.0 last update: 08/09/86 
by Alwin Ertl" ;CHR$(24):PRINT:PRI 

NT : PRINT: PRINT 

230 PRINT CHR$ (24) ;"Z" ;CHR$ (24) ;"eichnen 

"PRINT: PRINT: PRINT: PRINT CHR$ (24) ;"D";C 

HR$(24);"atei einrichten" 

240 t$="":WHILE t$="" OR INSTR("ZD",t$)= 

0:t$=UPPER$ ( INKEY$) :WEND 

250 CLS:ON INSTR("ZD",t$) GOTO 260, 1370 

260 ’Auswahl Zeichnen 

270 LOCATE 1,25:PRINT mi$; 

280 t$="":WHILE t$="" OR INSTR('"BZLSADCE 

" .t$)=0:t$=UPPER$ ( INKEY$) :WEND 

290 LOCATE 1,25:PRINT leer$;:ON INSTR("B 

ZLSADCE" ,t$) GOTO 300,460,970,1110,1200, 

1220, 1280, 1340 

300 ’Bildausschnitt festlegen 

310 PRINT CHR$(23) ;CHR$(1); 

320 MOVE x-2,y:DRAW x+2,y:MOVE x,y-4:DRA 

Wx,yt+t4 

330 j=JOY(0):IF j=0 THEN 330 

340 MOVE x-2,y:DRAW x+2,y:MOVE x,y-4:DRA 

Wx,yt4 

. 350 IF j AND 16 THEN x1=x:y1=y:GOTO 370 
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360 GOSUB 1460:G0TO 320 

370 SOUND 1,20,20,15:WHILE JOY(0)<>0:WEN 

D 

380 MOVE x1,y1:DRAW x,y1:DRAW x,y:DRAW x 
1,y:DRAW x1,y1 

390 5=JOY(0):IF 53=0 THEN 390 

400 MOVE x1,y1:DRAW x,y1:DRAW x,y:DRAW x 
1,y:DRAW x1,y1 

410 IF j AND 16 THEN x2=x:y2=y:PRINT CHR 
$(23) ;CHR$ (0) ; :GOTO 430 

420 GOSUB 1460:G0TO 380 

430 SOUND 1,20,20,15:IF x2<x1 THEN h=x1: 

x1=x2:x2=h 

440 IF y2<yl THEN h=yl:yl1=y2:y2=h 

450 GOTO 260 

460 ’Zeichnen 

470 LOCATE 1,25: INPUT"Datei" ;dat$ : LOCATE 
1,25:PRINT leer$; 

480 LOCATE 1,25: INPUT"Satz" ;satz: LOCATE 
1,25:PRINT leer$; 

490 dat$=UPPER$ (dat$) :OPENIN dat$:INPUT£ 
9,inh:IF inh>=satz THEN 510 

500 CLOSEIN : LOCATE 1,25:PRINT"Fehler: "; 

dat$;" enthaelt nur" ;inh;"Datensaetze!"; 

CHR$ (7) ;:WHILE INKEY$="":WEND:LOCATE 1,2 
5:PRINT leer$; :GOTO 260 

510 IF satz=1 THEN 530 

520 FOR i=1 TO satz-1:INPUT£I,z:FOR j=1 

TO z:INPUT£9,a:NEXT j,i 

530 INPUT£9,z:FOR i=1 TO z:INPUT£9,dat(i 
):NEXT i:CLOSEIN 

540 ’ (Sub-Auswahl ) 

550 LOCATE 1,25:PRINT m2$; 

560 t$="":WHILE t$="" OR INSTR("SKLR",t$ 
)=0:t$=UPPER$ ( INKEY$) :WEND 

570 LOCATE 1,25:PRINT leer$; :ON INSTR("S 

KLR",t$) GOTO 580,690,800,260 

580 ’(Saeulen zeichnen) 

590 sbr= (x2-x1)/z:zbr=sbr/3 

600 ma=0:FOR i=1 TO z:ma=MAX(ma,dat(i)): 

NEXT i:mi=ma:FOR i=1 TO z:mi=MIN (mi ‚dat ( 
i)):NEXT i 

610 yO=((y2-y1)/(ma-mi))*(-mi)+y1l:FOR i= 
1 TO z:y=((y2-y1)/(ma-mi))%(dat(i)-mi)ty 
1:MOVE x1+(i-1)%sbr,y0:DRAW x1+(i-1)%sbr 
‚y:DRAW x1+(i-1)%sbr+2%zbr,y:DRAW x1+(i- 
1)*sbr+2%zbr,yO 

620 LOCATE 1,25:PRINT s1$; 

630 t$="":WHILE t$="" OR INSTR("VHAKL",t 
$)=0:t$=UPPER$ ( INKEY$) :WEND 

640 ON INSTR("VHAKL",t$) GOTO 650,660,67 
0,650,680 

650 FOR j=x1+(i-1)*sbr TO x1+(i-1)%sbr+2 
*zbr STEP 4:MOVE j,y0:DRAW j,y:NEXT jJ:IF 
t$="V" THEN 680 

660 FOR j=y0 TO y STEP 43SGN(dat(i)):MOV 

E x1+(i-1)%sbr, j:DRAW x1+(i-1)%sbr+2%zbr 
‚J:NEXT j3:GOTO 680 


670 FOR j=x1+(i-1)%sbr TO x1+(i-1)%sbr+2 39 


LISTING 


*zbr:MOVE 3,y0:DRAW J,y:NEXT j 

680 LOCATE 1,25:PRINT leer$; :NEXT i:MOVE 
x1,((y2-y1)/(ma-mi))*(-mi)+y1:DRAWR z*s 
. br,0:GOTO 260 

690 ’(Kreis zeichnen) 

700 sum=0:FOR i=1 TO z:sum=sumtdat(i) :NE 
XT i:br=360/sum 

710 m=(x2+x1)/2:my= (y2+y1)/2:DEG:r1=(x2 
-x1)/2:r2=(y2-y1)/2 

720 PLOT mx+tri,my:FOR i=0 TO 360:DRAW mx 
+r1%00S(i) ,‚my+r2%$SIN(i):NEXT i:altgr=0 
730 FOR i=1 TO z:neugr=altgr+dat(i)%br:P 
LOT mx,my:DRAW mx+r1%00S (altgr) ‚my+r2*SI 
N(altgr) :PLOT mx,my:DRAW mx+r1%00S (neugr 
) ,my+r2%*SIN(neugr) 

740 LOCATE 1,25:PRINT s2$; 

750 t$="":WHILE t$="" OR INSTR("SAL",t$) 
=0:t$=UPPER$ ( INKEY$) :WEND 

760 ON INSTR("SAL",t$) GOTO 770,780,790 
770 FOR j=zaltgr TO neugr STEP 4:PLOT mx, 
my:DRAW mx+r1%00S( 5) ‚my+r2#SIN(j):NEXT j 
:GOTO 790 

780 FOR j=zaltgr TO neugr STEP 0.1:PLOT m 
x,my:DRAW mx+r1%00S(,j) ‚my+r2%SIN( j) :NEXT 


J 

790 altgr=neugr:LOCATE 1,25:PRINT leer$; 
:NEXT i:ORIGIN 0,0:RAD:GOTO 260 
800 ’(Linie ziehen) 
810 ma=0:FOR i=1 TO z:ma=MAX(ma,dat(i)): 
NEXT i:mi=ma:FOR i=1 TO z:mi=MIN(mi ‚dat( 
i)):NEXT i:IF mi>O THEN mi=0 
820 LOCATE 1,25:PRINT"y Minimm:";mi;:IN 
PUT" Gewuenschter Wert (ENTER = keine A 
enderung) ";nmi$:IF nmi$<>"" THEN mi=VAL 
(nmi$) j 
830 LOCATE 1,25:PRINT leer$;:LOCATE 1,25 
:PRINT"y Maximm:";ma;:INPUT" Gewuensch 
ter Wert (ENTER = keine Aenderung) ";nma 
$:IF nma$<>"" THEN ma=VAL(nma$) 
840 LOCATE 1,25:PRINT leer$; 
850 br=(x2-x1)/z:y0=((y2-yl)/(ma-mi))*(- 
mi)+tyl 
860 LOCATE 1,25:PRINT s3$; 
870 t$="":WHILE t$="" OR INSTR("PSDK",t$ 
)=0:t$=UPPER$ ( INKEY$) :WEND 
880 ON INSTR("PSKD",t$) GOTO 890,910,930 
‚950 
890 FOR i=1 TO z-1:ye=( (y2-yl1)/(ma-mi))* 
(dat(i+1)-mi)+yl:ys=((y2-y1)/(ma-mi))*(d 
at(i)-mi)+yl:m=(ye-ys)/br 
900 FOR 53=0 TO br STEP A:y=m% j+ys:PLOT j 
+x1+(i-1)*br,y:NEXT j,i:GOTO 960 
910 FOR i=1 TO z-1:ye=( (y2-y1)/(ma-mi))* 
(dat(i+1)-mi)+yl:ys=((y2-yl)/(ma-mi))*(d 
at(i)-mi)+yl:m=(ye-ys)/br 
920 FOR j=0 TO br STEP 8:y=m% j+ys: yh=m# ( 
J-4)+ys:PLOT j+tx1+(i-1)*br,y:DRAW j+x1+( 
i-1)*br,yh:NEXT j,i:GOTO 960 
930 FOR i=1 TO z-1:ye=((y2-y1)/(ma-mi))* 
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(dat(it1)-mi)+yl:ys=((y2-yl)/(ma-mi))*(d 
at(i)-mi)+yl:m=(ye-ys)/br 

940 FOR 5j=0 TO br STEP 6:y=m% j+tys:PLOT j 
+x1+(i-1)%br-2,y:DRAW j+tx1+(i-1)*br+t2,y: 
PIOT jtx1+(i-1)%*br,y-4:DRAW j+tx1+(i-1)*b 
r,y+t4:NEXT 3,i1:GOTO 960 

950 PLOT x1, ((y2-y1)/(ma-mi))*(dat(1)-mi 
)+yl:FOR i=1 TO z:y=((y2-y1)/(ma-mi))*(d 
at(i)-mi)+y1:DRAW (i-1)*br+x1,y:NEXT i 
960 PIOT x1,y0:DRAWR (z-1)%br,0:PLOT x1, 
y1:DRAW x1,y2:GOTO 260 

970 ’Linie freihaendig 

980 PRINT CHR$(23) ;CHR$ (1); 

990 MOVE x-2,y:DRAW x+2,y:MOVE x,y-4:DRA 
Wx,y+t4 

1000 53=JOY(0):IF j=0 THEN 1000 

1010 MWE x-2,y:DRAW x+2,y:MOVE x,y-4:DR 
AW x,yt+4 

1020 IF j AND 16 THEN 1040 

1030 GOSUB 1460:G0T0O 990 

1040 xu=x:yu=y:SOUND 1,20,20,15:WHILE JO 
Y(0)<>0:WEND 

1050 MOVE xu,yu:DRAW x,y 

1060 5j=JOY(0):IF j=0 THEN 1060 

1070 MOVE xu,yu:DRAW x,y 

1080 IF j AND 16 THEN 1100 

1090 GOSUB 1460:G0TO 1050 

1100 SOUND 1,20,20,15:PRINT CHR$(23) ;CHR 
$(0);:MOVE xu,yu:DRAW x,y:GOTO 260 

1110 ’Schreiben 

1120 PRINT CHR$(23) ;CHR$ (1); 

1130 MOVE x,y:DRAWR 8,0:DRAWR 0,-16:DRAW 
R -8,0:DRAWR 0,16 

1140 j=JOY(0):IF j=0 THEN 1140 

1150 MOVE x,y:DRAWR 8,0:DRAWR 0,-16:DRAW 
R -8,0:DRAWR 0,16 

1160 IF j AND 16 THEN 1180 

1170 GOSUB 1460:G0T0O 1130 

1180 PRINT CHR$(23) ;CHR$(0) ;:WHILE JOY(O 
)<>0:WEND:LOCATE 1,25:LINE INPUT"Text: " 
;t$:TAG:MOVE x,y:IF LEFT$(t$,1)=CHR$ (23) 
THEN x$=STR$ (dat (VAL(MID$(t$,2)))):PRIN 
T MID$(x$, INSTR(x$," ")+1); ELSE PRINT t 
$; 

1190 TAGOFF:GOTO 260 

1200 ’Bildausschnitt loeschen 

1210 FOR i=yl TO y2 STEP 2:M0VE x1,1:DRA 
W x2,i1,0:NEXT i:PLOT 900,900,1:GOTO 260 
1220 ’Bild speichern/laden 

1230 LOCATE 1,25:PRINT s4$; 

1240 t$="":WHILE t$="" OR INSTR("SL",t$) 
=0:t$=UPPER$ ( INKEY$) :WEND 

1250 LOCATE 1,25:PRINT leer$; :LOCATE 1,2 
5: INPUT"Dateiname" ;dat$:dat$=UPPER$ (dat$ 


) ’ 

1260 LOCATE 1,25:PRINT leer$;:IF t$="S" 
THEN SAVE dat$,b,&C000,&FFFF-&C000 ELSE 
LOAD dat$,&C000 

1270 GOTO 260 


LISTING 


1280 ’Hardcopy (fuer DMP 2000) 

1290 WIDTH 255 :PRINT£8 ,CHR$ (27) ;"3" ;CHR$ 

(3); 

1300 FOR i=0 TO 638: PRINT£8,CHR$(27);"x" 
;CHR$ (2) ;CHR$ (32) ;CHR$(3) ; 

1310 FOR j=0 TO 199:t=TEST(i,j*2):IF t=0 
THEN PRINT£8,CHR$ (0) ;CHR$ (0) ;CHR$ (0) ;CH 

R$(0); ELSE PRINT£8,CHR$ (3) ;CHR$ (3) ;CHR$ 
(3) ;CHR$(3); 

1320 NEXT j:PRINT£8,CHR$ (13) ;CHR$(10); 

1330 NEXT i:GOTO 260 

1340 ’Ende 

1350 LOCATE 1,25: INPUT"Wirklich beenden" 
;Jjn$: IF UPPER$(LEFT$(jn$,1))="N" THEN 26 

0 

1360 CLS:END 

1370 ’Datei einrichten 

1380 CLS:PRINT CHR$(24) ;"Datei vorbereit 

en" ;CHR$ (24) :PRINT: PRINT 

1390 INPUT"Dateiname" ;dat$ :dat$=UPPER$ (d 

at$) :OPENOUT dat$ 

1400 INPUT"Wieviele Zahlenkolonnen" ;z:PR 
INT£9,z 

1410 FOR i=1 TO z:PRINT:PRINT CHR$ (24) ;" 

Kolonne" ;i ;CHR$ (24) : INPUT"Wieviele Werte 
":w:PRINT£9,w 

1420 FOR j=1 TO w:PRINT 5; :INPUT". Wert: 
" a:PRINT£9,a:NEXT j,i:CLOSEOUT:PRINT:P 

RINT: INPUT"Weitere Datei einrichten" ; jn$ 
:IF UPPER$(LEFT$(jn$,1))="N" THEN 210 EL 

SE 1380 

1430 ’ 

1440 ’ %%% Unterprogramm *%%X 

1450 ’ 

1460 ’Cursorsteuerung 

1470 IF j AND 1 THEN y=y+2:IF y>400 THEN 
y-0 

1480 IF j AND 2 THEN y=y-2:IF y<O THEN y 
=400 

1490 IF j AND 4 THEN x=x-1:IF x<0O THEN x 
=640 

1500 IF j AND 8 THEN x=x+1:IF x>640 THEN 
x=0 

1510 RETURN 


Bildsausschnitt richtig gesetzt wurde, bevor Sie auf 
A drücken. 

Mit dem Menüpunkt „Disk“ können Sie eine 
Zeichnung als Binärdatei ablegen und sie ebenso 
wieder laden. Das geht schnell, verbraucht aber pro 
Bild 17 K Speicherplatz. Besser ist es, Sie geben 
eine Grafik vıa „Copy“ auf den Drucker aus (brin- 
gen Sie aber genügend Zeit mit!) und löschen Sie 
dann. Verlieren Sie bitte den Ausdruck nicht, sonst 
müssen Sie mit dem Zeichnen von vorne beginnen! 

Ein wichtiger Ratschlag zum Schluß: Notieren 
Sie sich irgendwo, welche Datei welche Daten ent- 
hält. Sonst stehen Sie nach einem halben Jahr da 


und finden die Daten nicht mehr. 
(Alwin Ertl) 
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DINGEN 


Bei diesem Programm handelt es sich um einen 
Basic-Lader für ein Maschinenprogramm (DIN. 
COM/DIN.BIN). Der Lader kann verschiedene 
Versionen dieses MC-Programmes erzeugen, näm- 
lich für CP/M 2.2 44k und CP/M 2.2 62k (VOR- 
TEX) sowie für das BASIC-Betriebssystem. 

Zur Erzeugung des COM-Files sollte sich DIN- 
GEN auf einer Diskette mit CP/M-Spur befinden, 
auf der sich auch das Programm DDT.COM befin- 
det. DINGEN erzeugt zunächst ein BIN-File, das 
automatisch abgespeichert wird. Dieses File muß 
mit Hilfe des DDT verschoben und anschließend 
mit dem CP/M-Befehl SAVE als COM-File gespei- 
chert werden. 

Nachdem DINGEN fertig ist, muß man CP/M 
starten. Draufhin erscheint ‘A>‘. Nun schreibt 
man ‘'DDT DIN.COM <ENTER>‘. Nach kurzer 
Zeit meldet sich DDT mit ‘-. Jetzt schreibt man 
‘M180,250,100 <ENTER>‘. Sogleich erscheint 
wieder ‘-“, woraufhin man <CTRL+C> drückt. 
Nachdem wieder ‘A>*“ erschienen ist, gibt man 
“SAVE 1A:DIN.COM,<ENTER>‘ ein. 

Sofern man eine Version für das gerade benutzte 
CP/M erzeugt hat, kann man nun durch Eingabe 
von ‘DIN <ENTER>* testen, ob alles funktioniert 
hat. Der Rechner muß sich wieder mit ‘A>‘ mel- 
den. Die Sonderzeichen müssen jetzt auf dem 
Schirm erscheinen, wenn man die entsprechenden 
Tasten drückt. Diese Tasten sind: die eckigen Klam- 
mern mit und ohne SHIFT, der Schrägstrich rück- 
wärts, der Klammeraffe mit und ohne SHIFT, die 
‘2° im Haupttastenfeld mit CTRL und die Pfund- 
Taste. 


| 


Im 


Il 
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LISTING 


10 ?ZIERERELERKKIEKKERKKIIEIKIK KRITIK N 


16 ’* fuer Schneider aktiv 
17 ’x 
18 ’* CPC 464 (CP/M) 

’x 


vb 
an 
7 
”* 
RER HH R 


20 ’* 016 

21 ’* x 
22 ?KERRKEKEKKKEKEKKKEKKKKEKKKEIKIER EN 
100 SYMBOL AFTER 256:MODE 2:DEFINT f:b=& 

B7 

110 INPUT"DIN-Ausgabe fuer 44k-CP/M (0), 
62k-CP/M (1) oder BASIC (2)";f:IF f<0O O 

R f>2 THEN PRINT"Nur 0,1 oder 2 eingeben 
!":GOTO 110 ELSE start=42005:IF f=1 THEN 
start=42017 

120 IF f=2 THEN b=&A6 :start=42496 :MEMORY 
&A5FF ELSE MEMORY &A3FF 

130 RESTORE:p=0:d2z=100:x=0:FOR z=0 TO 14 
7 STEP 21:FOR x=0 TO 20:READ a$:a=VAL("& 
"+a$):p=-pta:IF a=-&99 THEN a=b 

140 POKE start+z+x,a:NEXT:READ a$:a=VAL( 
a$):IF p<>a THEN PRINT"Fehler in"dz:END 

ELSE p=0:dz=dz+10:NEXT 

150 IF f<>0 THEN 170 ELSE RESTORE 380:p= 
0:dz=190:FOR x=0 TO 20:READ a$:a=VAL("&" 
+a$):p-pta:IF a-&99 THEN a=b 

160 POKE 41984+x,a:NEXT:READ a$:a=VAL(a$ 
):IF p<>a THEN PRINT"Fehler in"dz:END EL 
SE 210 

170 IF f<>1 THEN 190 ELSE RESTORE 370:p= 
0:dz=180:FOR x=0 TO 32:READ a$:a=VAL("&" 
+a$):p=pta:IF a-&99 THEN a=b 

180 POKE 41984+x,a:NEXT:READ a$:a=VAL(a$ 
):IF p<>a THEN PRINT"Fehler in"dz:END EL 
SE 210 

190 RESTORE 390 :p=0:d2=200:FOR x=0 TO 9: 
READ a$:a=VAL("&"+a$):p=pta:IF a=&99 THE 
N a=b 

200 POKE 42664+x,a:NEXT:READ a$:a=VAL(a$ 
):IF p<>a THEN PRINT"Fehler in"dz:END EL 
SE 230 

210 CLS:INPUT"Befindet sich in Laufwerk 
A eine Diskette mit CP/M-Spur und DDT.CO 
M (J/N)" ;a$:a$=LEFT$(UPPER$(a$),1):IF a$ 
<>" J"THEN END 

220 SAVE"DIN.COM" ‚b,&A400 ,&C09:CLS: PRINT" 
CP/M starten und folgendes eingeben:" :PR 
INT:PRINT"DDT DIN.COM <CR>" :PRINT"M180,2 
50,100 <CR>" :PRINT""C":PRINT"SAVE 1 A:DI 
N.COM. <CR>" :PRINT:END 

230 CLS: INPUT"Abspeichern" ;a$ :a$=UPPER$ ( 
LEFT$(a$,1)):IF a$="J"THEN SAVE"FASTDIN. 
BIN" ,b,&A600,&B2:CLS:CALL &A6A8 ELSE CAL 
L &A6A8:END 


240 PRINT"Dieses Programm kann direkt ge 
laden werden, ohne dabei ein im Speicher 

stehendesBASIC-Programm zu zerst!ren. J 
edoch mu” vorher ’SYMBOL AFTER 256 :MEMOR 
Y&A5bFF’ eingegeben werden, da das Prog 


.ramm an der Adresse &A600 beginnt." 


250 PRINT"Nach dem Laden mu” der Fast-Mo 
dus mit CALL&A6Aß eingeschaltet: werden. 
Damit ist die Ausgabe nur noch in MODE 2 
m.glich, aber bis 2.5 mal schneller. Au 
“erdem kınnen keine eigenen Symbole v 
erwendet werden. Hingegen sind WINDOWS u 
nd rever-" 
260 PRINT"se Darstellung m!glich. Gleich 
e PEN- und PAPER-Farbe f}hren zum Versch 
winden desCursors und Darstellung der PA 
PER-Farbe mit reverser Schrift. Der Tran 
sparent- Modus (CHR$(22)) wird nicht un 
terst}tzt. Auf die }brigen Steuercodes h 
at der" 
270 PRINT"Fast-Modus keine Auswirkungen. 
Insbesondere funktioniert der LIST-Befe 
hl unver- {ndert. ]brigens erfolgte dies 
e Ausgabe bereits im Fast-Modus. Zum Aus 
schalten gebe man ’CALL&BB51’ ein." 
280 END 
290 DATA 06,00,4C,50,5D,60,29,29,19,29,2 
9,29,29,09,ED,5B,C9,B1,19,EB,FE, 1851 
300 DATA 5B,FA,36,99,FE,7F,F2,36,99,FE,5 
F,FA,28,99,FE,7B,FA,36,99,01,60, 3101 
310 DATA 99,D6,5B,FE,04,FA,41,99,D6,1C,1 
8,0B,FE,40,20,04,3E,7F,18,EA,01, 2263 
320 DATA 00,38,6F,26,00,7A,E6,07,C6,C0,5 
7,29,29,29,09,ED 
330 DATA 7E,A9 A,C6,08,57,23,10,F6,C 
9,00,C6,38,6C,C6,FE,C6,C6,00,C6, 2634 
340 DATA 38,6C,C6,C6,6C,38,00,6C,C6,C6,C 
6,C6,C6,7C,00,38,6C,C6,00,00,00, 2308 
350 DATA 00,00,6C,00,78 
6,00,3C,66,66,66,3C,00, 
360 DATA 66 ee 


“- 
>] 

“ 
I 


370 DATA F3 ‚01,9E ‚7 
0,99,21,21,01,ED,BO 
‚23,72,01,EE,7F,ED, 
380 DATA 01 ‚A8,00,1 
0,21,D4,BD,11,00,99 
390 DATA 21,D4,BD,1 
1069 


‚12. ‚c9, "1876 
9, 73,23,72,C9, 


Bi ee 


Ss” 


AKTIV ARBEITEN 
MIT SCHNEIDER 


AKTIV 


LISTING 


APFEL 
FÄLLT 
NICHT 

WEIT VOM 
PFLAUMEN- 
BAUM! 


*“Fallobst“ ist ein relativ 
einfaches Spiel, das aber 


dennoch viel Spaß machen 


kann. Es geht darum, ver- 
schiedene Früchte, die 
durch eine Reihe Hinder- 
nisse fallen, aufzufangen. 
In Runde 1 geschieht 
dies mit einem Rohr- 
stück, das dem Obst einen 
guten Rutsch in Runde 
2 beschert. Dort ist das 
(hoffentlich nicht faule) 
Früchtchen endgültig 

in einem Korb zu beför- 
dern. 

Es gibt dabei drei ver- 
schiedene Obstsorten. 
Da sind zunächst einmal 
die Äpfel, welche — soll- 
ten sie im Korb ankom- 
men — 30 Punkte brin- 
gen. Die Birnen verschaf- 
fen Ihnen etwas mehr, 
nämlich 60. Pflaumen 
schließlich schätzt der 
CPC als besondere Deli- 
katesse und gibt Ihnen 
90 Punkte. Wenn Sie die 
Früchte nicht in den 
Korb, jedoch immerhin 
in Runde 2 bringen, be- 
lohnt der Computer den 
puten Willen mit einem 
Drittel der jeweiligen 
Punktzahl. 


Die Punktzahl wird links 
oben angezeigt, das High- 
score rechts. Gesteuert 
werden Rohr und Korb 
mit dem Joystick oder 
den Pfeiltasten nach links 
und rechts. Es soll Ihnen 
jedoch nicht verheimlicht 
werden, daß die Tastatur- 
steuerung etwas träge rea- 


“giert; ein Steuerknüppel 


ist in jedem Fall besser. 
Insgesamt fünfmal dür- 
fen Sie das Obst zu Mus 
verarbeiten, dann ist das 
Spiel beendet. Wenn Ih- 
nen diese Zahl zu gering 
(oder zu hoch) erscheint, 
so müssen Sie nur den 
Wert der Variablen vor- 
beimax in Zeile 260 
ändern. u 
Von weiteren Änderun- 
gen, insbesondere Pro- 
grammerweiterungen, ist 
jedoch abzuraten, da 
hier mit zwei verschiede- 
nen Video-RAMSs gear- 
beitet wird. Der übrig- 
bleibende Speicher ist 
naturgemäß nicht mehr 
allzu groß. Doch genug 
der Worte — Viel Ver- 
gnügen beim Abtippen 
und Spielen! 

Alwin Ertl 


110 ° Fallobst 

120 ’ 

130 ’by Alwin Ertl 7/ Tel. 09947 468B 
170 ’ 

190: ” Hauptprogramm 

210 °’ 

220 ’Vorbereitung 

230 MEMORY &3FFF:mstart=40000: POKE mstar 


t+1,&CD:POKE mstart+2,8&50:POKE mstart+3, 
&BB: POKE mstart+4,8&32:POKE mstart+5, 840: 
POKE mstart+56,8&SC: POKE mstart+7,&C3 

240 MODE 1:PAPER O: INK 0,0:BORDER 0: INK 
1,0:INK 2,0:CLS:DIM spielerpos(2) 

e50 ENV 1,1,15,10,15,-1,8:ENV 2,15,1,1,1 

5,-1,1,15,1,1,15,-1,2:ENV 3,1,15,50,1,-1 

5,10,2,5,1,5,1,2,1,0,200 

260 pt-O:vorbei-0: vorbeimax=5:RANDOMIZE 

TIME:SYMBOL 251,0,0,8&18,&3C,&3C,&18 

270 s$-CHR$SC251):K$=-"” ”"+55:z15=""”:FOR i- 
1 TO 20:z1$=z1$+k$:NEXT i:k$=s$+” ”:z2$= 
””:FOR i=1 TO 20:z2$5=-z2$+k$: NEXT i:bew$- 
””:FOR i=1 TO 10: bew$=-bew$+s$+SPACES(C3): 

NEXT i:dummy=FREC””) 

280 ’Aufbau Display 1 

290 CALL &BCO6,8&C0:RESTORE 390:PEN 2:FOR 
i=1 TO 8:READ x:FOR 3-1 TO 3:LOCATE x,J 
:PRINT CHRSC207):NEXT J,i 

300 PEN 1:FOR i=1 TOD 4:READ x: y-6:GODSUB 

B20:NEXT i:LOCATE 32,12:PRINT SPACES$SC2O) 
:LOCATE 32,12: PRINT s$;” ”;s$;,” ”,;,s$;” ” 
;s$; » » 

310 FOR i-15 TO 23 STEP 4:LOCATE 1,i:PRI 

NT z18:1IF i<23 THEN LOCATE 1,i+t2o:PRINT z 

2$ 

320 NEXT i:spielerpos(1)=20 

330 ’Aufbau Display 2 

340 CALL &BCO6,8&40:LOCATE 1,3:PRINT z18: 

LOCATE 1,5:PRINT z2$ 

350 FOR i=1 TO 37 STEP 6:LDCATE i,11:PRI 

NT s$:NEXT i:FOR i=-2 TO 32 STEP 6: LOCATE 
i,13:PRINT s$;SPACES(3);,s$; :NEXT i:PRIN 

TI” ”;s$ 

360 LOCATE 1,15:PRINT z2$:LOCATE 1,17:PR 
INT z1$:LOCATE 1,20:FOR i-1 TO 10:PRINT 

s$;” ”;:NEXT i:FOR i=1 TOD 10:PRINT” ”;s$ 
;:NEXT i:LOCATE 1,22:FOR i=1 TO 9:PRINT” 
”:58$; :NEXT i:PRINT SPACESC3);:FOR i=-1 T 

DO 9:PRINT” ”;s$;:NEXT i 

370 spielerpos(2)=-20:stringteil=1: INK 1, 

85: INK 2,021 

380 ’Spiel auf Feld 1 

390 CALL &BCO6,8&C0:PEN 2:LOCATE 1,1:PRIN 

T USING”####” ;pt:LOCATE 37,1: PRINT USING 

”#4###”;hi:LOCATE 1,25: PRINT SPACESC4HO)I;: 

SYMBOL 252,8&81,8&81,8&81,8&81,&81,8&8B1,8&8B1,& 


81 
400 obst-INTC3*RND+1):DN obst GDTD 410,4 
20, 430 


410 SYMBOL 253,88,8&10,8&10:5YMBOL 254,0,0 
‚&6,&7F,&FF,&FF,&FF,&7E: INK 3,6:G0TD 440 
420 SYMBOL 253,8&10:5YMBOL 254,0,8&38B,&38, 
&38,8&7C,&FE,&FE,&7C: INK 3,24:GOTD 440 
430 SYMBOL 253,84,8&8:5YMBOL 254,0,0,8&1B, 
&3C,&3C,&3C,&3C,8&18: INK 3,1 

440 y=1:start=INTC4H*RND+1):DON start GOTD 
450,4560,470,4B0 


37 


LISTING 


450 x=6:G60TD 490 

460 x=15:G6DTD 430 

. 470 x=26:G0TO 430 

4B0 x=35 

490 PEN 2:LOCATE spielerpos(1),25:PRINT 

CHR$SC252); 

S00 n-1:G60SUB B4O 

510 LOCATE x,y:CALL 40001: IF y=25 THEN I 

F PEEKC40000)=-32 THEN SOUND 2,1500,160,0 
‚e:vorbei-vorbei+tl:IF vorbei"vorbeimax T 

HEN 720 ELSE 390 

S20 IF y>24 THEN IF PEEKC4O0000)<>32 THEN 
570 

530 LOCATE x,y:PRINT CHRS$SC22);”"1”:PEN 2: 

LOCATE x,y:PRINT CHR$(C253); :PEN 3: LOCATE 
x,4:PRINT CHR$SC254);:PRINT CHR$SC22);”O” 

540 IF y<24 THEN GOSUB 890 ELSE xneu=x:y 
neu=y+1 

S50 SOUND 4,20,2,13:LOCATE x,y:PRINT” ”; 
:x=Xxneu:y=yneu:GDOTD 430 

S60 ’Spiel auf Feld 2 

570 SOUND 4,100,100,0,3:CALL &BCO6,8&40:L 

OCATE 1,25:PRINT SPACE$CHO); 

580 pt-pt+10*obst: IF pt>hi THEN hi-pt 

590 PEN 2:LOCATE 1,1:PRINT USING”####”;p 

t:LOCATE 37,1: PRINT USING”####";hi:SYMBO 

L 252,0,0,0,&81,8&42,8&3C,&18:y-2 

600 PEN 2:LOCATE spielerpos(2),25:PRINT 
CHRSC252); 

610 n=2:G0SUB 840: IF y=-B THEN 630 

620 PEN (stringteil MOD 3)+1:stringteil- 
(stringteil MOD 40O)+1:LOCATE 1,8:PRINT M 
ID$Cbew$, stringteil+t1);LEFTSCbew$, string 
teil) 

630 LOCATE x,y:CALL 40001: IF y=-25 THEN I 
F PEEKC40000)-32 THEN SOUND 2,1500,160,0 
‚e:vorbei-vorbeit1:IF vorbei-vorbeimax T 
HEN 720 ELSE 390 

640 IF y=-25 THEN IF PEEKC40000)<>32 THEN 
630 

650 LOCATE x,y:PRINT CHRS$SC22)I+"1”:PEN 2: 
LOCATE x,y:PRINT CHR$SC253); :PEN 3:LOCATE 
x,y:PRINT CHRS$SC254); :PRINT CHRSC22);”O” 
660 IF y<24 THEN GOSUB BIO ELSE xneu=x:y 
neu=y+1l 

670 SOUND 4,20,2,13:LOCATE x,y:PRINT” ”; 
:x=xneu:y=yneu:GOTD 600 

680 ’DObst ganz durch 

6390 SOUND 4,60,100,0,3:pt=-pt+20*obst: IF 
pt>hi THEN hi=pt 

700 GOTO 390 

710 ’Aus - Zu hasufig derkehit 

720 FOR i=-50 TO 200:SOUND 2,i,2,10+i MOD 
5:SDUND 1,i*2,2,10+i MOD S: NEXT i:CLS:P 

EN 2 

730 LOCATE 1,1:PRINT”Ergebnis:”:LDCATE 2 

0O,1:PRINT USING”######” ; pt: LOCATE 1,3:PR 
INT”Highscore: ”:LOCATE 20,3:PRINT USING” 
#HHH#H##”; hi: IF hi=pt THEN LOCATE 14,7:PRI 

NT”’"R ek oo r d”:LOCATE 13,8: PRINT”=-=-==-=- 

740 LOCATE 19,12:PRINT”NOCH”:LOCATE 20,1 

5:PRINT”EIN”:LOCATE 19,19: PRINT”SPIEL”:L 

DCATE 1,23: PRINT STRINGSC4O, TER) 

750 t$=INKEYS: IF t$=""” OR INSTRC”JJNn” ‚t 

$)=-0 THEN 750 


760 IF INSTRC”JJ”,t$) THEN ERASE spieler 
pos: GOTO 240 ELSE CLS:END 
770 


780 177 Tr 7 Tr r r 1 7 Tr 1111 97 


790 ’ Unterprogramme k 

BOO .E.ISETETKITEERTLTETIT TIEFE TTH 

810 ’ 

820 LOCATE x,y:PRINT s$; CHRSCB);CHRS$(CB); 
CHR$SC10);CHR$SC10);,s$;,” ”;s$;STRINGS$SC4H,CH 
RSCB)); ‚CHRSC10); ‚CHRSC10); ;s$;” ”;s5$;” ”.s 
$; ‚CHRSC10); ‚CHR$C10); STRINGS(E, CHRS$S(CB));s 
$; » is s$; » ”:5$; » » ;s$: RETURN 

830 'Steuerung 

840 IF 'INKEYS="”"” AND JOYCOJ=O THEN RETUR 
N ELSE LOCATE spielerpos(n),25:PRINT” ”; 
850 IF CJOYCO)I AND 4) OR INKEYS-CHRSCOY42 
) THEN spielerpos(n)=spielerpos(n)-1:IF 
spielerpos(n)<1 THEN spielerpos(n)=1:SDU 
ND 1,80,50,0,1 

860 IF CJOYco) AND B) DR INKEYS=CHRSC243 
) THEN spielerpos(n)=spielerpos(n)+1:IF 
spielerpos(n)>40O THEN spielerpos(n)=40:5 

OUND 1,80,50,0,1 

870 LOCATE spielerpos(n),25:PRINT CHR$C2 

52); :RETURN 

880 ’Galton 

890 LDCATE x,y+1:CALL 40001: IF PEEKC4OOO 
0)=-32 THEN xneu=x:yneu=y+1: RETURN 

900 rr=RND: IF rr<O.5S THEN IF x>1 THEN xn 

eu=x-1 ELSE xneu=x+t1 

910 IF rr>0O.5 THEN IF x<4O THEN xneu=x+1 
ELSE xneu=x-1 


920 RETURN 

930 ’ 

s5s0 ’ Daten 
. 970 °’ 

980 ’Positionen Grafik 


9390 DATA 5,7,14,16,25,27,34,36, 
35 


6,15,06, 


NUTZEN SIE UNSEREN 
KOSTENLOSEN KLEIN- 


ANZEIGEN-SERVICE 


CLUB- ECKE 


CPC-USER-CLUBS / PCW-USER-CLUBS 


PLZ 1000 BERLIN: Tel. 
PLZ 2000 HAMBURG: Tel. 
PLZ 2000 HAMBURG: nur JOYCE Tel. 
PLZ 2000 HAMBURG: Tel. 
PLZ 2190 CUXHAVEN 1: Tel. 
Mailbox: 
PLZ 2300 KIEL: Tel. 
PLZ 2320 PLÖN Tel. 
PLZ 2390 FLENSBURG: Tel. 
PLZ 2400 LÜBECK: Tel. 
PLZ 2908 FRIESOYTHE: Tel. 
PLZ 2842 LOHNE: Tel. 
PLZ 3000 HANNOVER: Tel. 
PLZ 3500 KASSEL: Tel. 
PLZ 3590 BAD WILDUNGEN: Tel. 
PLZ 4132 KAMP-LINTFORT: Tel. 
PLZ 4182 UEDEM: Tel. 
PLZ 4193 KRANENBURG: Tel. 
PLZ 4200 OBERHAUSEN 1: Tel. 
PLZ 4280 BORKENGEMEN: Tel. 
PLZ 4800 BIELEFELD: Tel. 
PLZ 4836 HERZEBROCK-CLARHOLZ: Tel. 
PLZ 4509 DISSEN: Tel. 
PLZ 4630 BOCHUM 1: Tel. 
PLZ 4800 BIELEFELD 1: Tel. 
PLZ 4830 GÜTERSLOH: Tel. 
PLZ 5010 BERGHEIM: Tel. 
PLZ 5132 ÜBACH-PALENBERG: Tel. 
PLZ 5138 HEINSBERG 1: Tel. 
PLZ 5140 ERKELENZ 4: Tel. 
PLZ 5400 KOBLENZ: Tel. 
PLZ 5630 REMSCHEID: Tel. 
PLZ 5630 REMSCHEID: Tel.. 
PLZ 6300 GIESSEN: Tel. 
PLZ 6330 WETZLAR: Tel. 
PLZ 6352 OBER-MÖRLEN: Tel. 
PLZ 6382 FRIEDRICHSDORF: Tel. 
PLZ 6600 SAARBRÜCKEN: Tel. 
PLZ 6800 MANNHEIM: Tel. 
PLZ 6927 BAD RAPPENAU: Tel. 
PLZ 7000 STUTTGART 1: Tel. 
PLZ 7063 WELZHEIM: Tel. 
PLZ 7129 TALHEIM: Tel. 
PLZ 7129 NECKARWESTHEIM: Tel. 
PLZ 7250 LEONBERG 6: Tel. 
PLZ 7311 HOCHDORF: Tel. 
PLZ 7420 MÜNSINGEN: Tel. 
PLZ 7500 KARLSRUHE: Tel. 
PLZ 7520 BRUCHSAL: Tel. 
PLZ 7600 OFFENBURG: Tel. 
PLZ 7800 FREIBURG/BR.: Tel. 
PLZ 7894 STÜHLINGEN: Tel. 
PLZ 7909 DORMSTADT: Tel. 
PLZ 8000 MÜNCHEN: Tel. 
PLZ 8156 OTTERFING: Tel. 
PLZ 8201 SCHECHEN: Tel. 
PLZ 8580 BAYREUTH: Tel. 


030/8227750 
040/5401424 
040/4917554 
040/6932033 
04721/22299 
04721/62600 
0321/527125 
04522/4643 
0461/35170 
0451/491151 
04491/2614 
04442/71546 
0511/281172 
0561/103805 
05621/1322 
02842/60925 
02825/8665 
02826/5470 
0208/845366 
02861/5117 
0521/887970 
05245/5120 
05421/5183 
0234/596504 
0521/887970 
05241/36350 
02271/61775 
02451/46608 
02452/5710 
02435/2518 
0261/71169 
02191/65121 
02191/68571 
0641/43287 
06441/48652 
06002/396 
06172/79355 
0681/3022098 
0621/103461 
07264/7702 
0711/766942 
07182/2192 
07133/6799 
07133/6207 
07152/21882 
07153/58279 
07381/2947 
0721/472273 
07251/14920 
0781/78268 
0761/891448 
07744/5002 
07348/22638 
089/5701431 
08024/2410 
08039/3237 
0921/41748 


PLZ 8670 HOF/SAALE: 
PLZ 8900 AUGSBURG: 
PLZ 8941 ERKHEIM: 


PLZ 8998 LINDENBERG/ALLGÄU: Tel. 


A 1020 WIEN/AUSTRIA 


DEMNÄCHST 
2 0821/573873 
Tel. 08336/7105 
08381/7468 
Tel. WIEN/26360 


(Aufstellung wird fortgesetzt — Einträge sind kostenlos) 


r——————————————————————————————— 


Jeremy Vine: 

Start in die Künstliche 
Intelligenz mit dem 
Schneider CPC464 


Vogel-Buchverlag 
Würzburg 1985, 
ISBN 3-8023-0863-8 


Die Künstliche Intelligenz 


(Kl) ist ein sehr wichtiges 
Forschungsgebiet der In- 
formatik, das seine Zu- 
kunft wohl noch vor sich 
hat. Das vorliegende 
Büchlein erhebt den An-. 
spruch, eine Einführung 
in dieses Gebiet zu sein. 
Zunächst fällt der niedri- 
ge Preis von 23,— DM an- 
genehm auf. Sieht man 
das Buch aber, scheint er 
eher zu hoch: Es hat 
nämlich nur 101, großzü- 
gig herausgeschundene, 


Seiten. Die erste Hälfte 
(bis Seite 56) hat mit Kl 
ungefähr so viel zu tun 
wie der ABC-Unterricht 
in der ersten Klasse mit 
dem Literatur-Nobelpreis. 
Sie enthält eine, aller- 
dings sehr leicht verständ- 
liche, Einführung in Teile 
der String- Verarbeitung 
mit BASIC, wobei es gu- 
te Erklärungen (LINE 
INPUT auf S. 29-30) 
und falsche (KEY DEF 
auf S. 52) gibt, plus eini- 
ge nützliche Hinweise zur 
Programm-Gestaltung. 

Im Grunde ist der erste 
Teil aber überflüssig, wenn 
man mit dem CPC-Hand- 
buch einigermaßen klar 
kommt. 

Die zweite Hälfte (S. 57— 
90) enthält im wesentli- 


39 


chen zwei primitive KI- 

Programme, an denen 

man aber doch einige Prin- 

zipien lernen kann: 

1. SIGMUND, eine abge- 
magerte Version des 
berühmten Programms 
ELIZA, in dem Compu- 
ter einen (schlechten) 
Psychotherapeuten si- 
muliert und das weni- 
ger über die Intelligenz 
von Computern als 
über die Dummheit von 
menschlichem Ge- 
schwätz offenbart. 

. INTERVIEWER, in 
dem der Computer ein 
paar Fragen in fester 
Reihenfolge stellt, und 
auch ein paar passende 
Reaktionen zeigt. 

Auf dem Umschlagtext 

werden vollmundig die 

Themen ‘Aufbau von Da- 

tenbanken‘ und ‘Muster- 


D 


erkennung‘ versprochen; 
davon ist im Buch aber 
nur ein Satz auf S. 86 zu 
finden — oder sollte die 
Monatstabelle auf S. 41 — 
44 schon eine Datenbank 
sein? Auch die Ankündi- 
gung ‘fertige Programme 
in Hülle und Fülle‘ ist 
stark übertrieben. 
Immerhin geben die bei- 
den Programme doch ei- 
nen ersten ganz kleinen 
Einblick in das faszinie- 
rende Gebiet KI und re- 
gen zum Weitermachen 
an. Aber insgesamt lernt 
man mit diesem Buch 
mehr darüber, wie Com- 
puter-Buchverlage Geld 
machen, als über Künstli- 
che Intelligenz. 


Klaus Pommerening 


LISTING 


ASSEMBLER- 
KURS FÜR CPC 


„Das Buch führt den An- 
fänger schrittweise in die 
Programmierung des Z80 
ein. Dabei werden Vor- 
kenntnisse nicht voraus- 
gesetzt.“ 

„Die Software besteht aus 
einem menügesteuerten 
Z80-Assembler 

...ein Trainingsprogramm 
mit dessen Hilfe Sie den 
Umgang mit verschiede- 
nen Zahlenformaten ver- 
tiefen können... 
...Programme zur Demon- 
stration der grafischen 
Erweiterung des Betriebs- 
systemes.‘“ 

Soweit der Klappentext 
des von SYBEX vertrie- 
benen Assemblerkurses. 
Betrachtet man den Preis, 
nur 64,— DM, dann sollte 
man den Programmkauf 
wohl jedem Maschinen- 
sprache-Anfänger empfeh- 
len können. Immerhin 
verkauft der gleiche Ver- 
lag das von Rodnay Zaks 
geschriebene Standard- 
werk über die Programmie- 
rung des Z80 für 59,— DM, 
ein guter Assembler, gar 
nicht zu reden vom 
Schneideroriginal, kann 
um die 100,— DM kosten. 
Der Assembler arbeitet 
auch mit Diskettensta- 
tion. Im Handbuch des 
Assemblers finden sich 
auch eine ausführliche 
Anleitung zum Konvertie- 
ren der Programme auf 
Diskette. Nebenbei ent- 
hält die Kassette noch ei- 
nige Beispiele für eine 
schnelle MC-Grafik und 
ein Übungsprogramm zur 
Zahlenumrechnung. 
Letzteres wird schnell 
überflüssig, denn ein klei- 
nes Hilfsprogramm inner- 
halb des Assemblers 
selbst, erlaubt auch wäh- 
rend der Programmierung, 
die Umrechnung in das 
Hexadezimale, das Duale 
und das Dezimale Zahlen- 
system. Wie bei allen 
anderen Optionen auch, 
muß man hierzu jedoch 
immer über das Haupt- 


menü gehen, je nach Häu- 
figkeit, eine umständli- 
che Prozedur. 

Auffallend ist dies vor al- 
lem beim Editieren eines 
Programmes. Im Haupt- 
menü ruft man die zu 
ersetzende Zeile auf 

und schreibt dann den 
Neutext. Bedauerlicher- 
weise wird dabei die feh- 
lerhafte Zeile nicht auf- 
gelistet. Danach meldet 
sich wieder das Haupt- 
menü. Es ist also nicht 
möglich, mehr als eine 
Zeile zu ersetzen, was aber 
auch anderen Editoren 
abgeht. 

Nächster Schwachpunkt, 
damit haben wir es aber 
auch, ist die Bildschirm- 
ausgabe von 40 Zeichen. 
Um dies zu ändern (viel- 
leicht auch die Farben), 
ist schon ein kleiner Ein- 
griff ins Programm nötig. 
Wer aber dachte, Kom- 
mentartexte müßten we- 
gen des 40-Zeilen-Modus 
in eine Extrazeile, wird 
enttäuscht. Auch bei der 
(erzwungenen längeren 
Zeile, müssen die Kom- 
mentare seperat gesetzt 
werden, natürlich mit 
vorangestelltem Semi- 
kolon. 


FAZIT 


Ansonsten leistet der 
Assembler Erstaunliches. 
Das Menü bietet alle Op- 
tionen, die zwei- oder 
dreimal teurere Program- 
me ebenfalls aufweisen, 
noch dazu im Klartext 
(deutsch). Die Speicher- 
belegung von Assembler 
und Editor läßt Raum 
auch für größere Pro- 
gramme. Natürlich muß 
man sich stets nach dem 
noch freien Platz rich- 
ten; der Assembler kann 
nicht gezielt in eine Spei- 
cheradresse geladen wer- 
den, wie das etwa bei 
dem GENA Assembler 
aus Schneiders DEVPAC 


der Fall ist. Trotz allem 
reichen die Fähigkeiten 
des Programms weit über 
die Anforderungen eines 
Anfängers hinaus, und 
sind damit lange nutzbar. 
Das Lehrbuch dazu ist so- 
gar sehr gut. Jeder Befehl 
wird in einem Beispiel- 
programm erläutert. Zu 
jedem Abschnitt gibt es 
Aufgaben, deren Lösung 
im Anhang beschrieben 
ist. Auch der MC unerfah- 
rene Anfänger wird nach 
einer halben Stunde mit 


den ersten Ladebefehlen - 


umgehen können und hat 
sein erstes funktionieren- 
des kleines Programm hin- 
ter sich. Was am wichtig- 
sten ist, er weiß warum 

es funktioniert. 


Den Grafikmöglichkeiten 


und ihre Einbindung als 
RSX-Befehl wird erfreu- 
lich viel Raum geschenkt. 
Einige BOX und CIRCLE 
Befehle werden sowohl 
als Assembler-Listing als 
auch auf Kassette mitge- 
liefert. 


40 


Sehr angenehm ist die 
Auswahl von Einsprung- 
adressen des Betriebssy- 
stemes. Immerhin sind 
63 Routinen beschrieben, 
deren Einsatz das Pro- 
grammieren erleichtern 
kann. 


FAZIT: 


Der Assembler-Kurs von 
SYBEX führt den Anfän- 
ger in die Maschinenspra- 
che ein. Nach Abschluß 
der Lektüre ist jeder in 
der Lage, kleine MC- 
Programme zu schreiben 
und diese in Basic-Pro- 
gramme unterzubringen. 
Wer mehr von sich ver- 
langt, wird dann zu ei- 
nem leistungsfähigeren 
Assembler und zu ausführ- 
licherer Literatur greifen, 
hat sich die Grundlagen 
aber schon erarbeitet, 
also kein Geld verschwen- 
det. 

Gerd Seidel 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
‘nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


L 


ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


per beiliegendem Verrechnungsscheck 

gegen Rechnung 

U bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 
SCHNEIDER AKTIV Unterschrift 
Abo-Service 11/86 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Postfach 1107 
8044 Unterschleißheim Unterschftt __ 11/86 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


SCHNEIDER AKTIV Name 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße /Hausnr. 
8044 Lohhof PLZ/Ort 


De —— 


—— 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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GEWINNSPIEL 


GEWINNEN SIE 
EINEN SCHNEIDER 


PC 1512 


ir wissen, es ist lästig, einen Fragebogen auszu- 

füllen. Trotzdem bitten wir Sie um Ihre Mitar- 
beit, denn wir möchten SCHNEIDER AKTIV noch 
besser, noch attraktiver machen. Dazu müssen wir al- 
lerdings wissen, wer unsere Leser sind, was sie wollen 
und erwarten. Deswegen bitten wir Sie, sich einige Mi- 
nuten mit diesem Fragebogen zu beschäftigen, ihn 
auszufüllen und uns zurückzuschicken. Um Ihnen den 
Entschluß zu erleichtern, können Sie mit Ihrem 
Fragebogen auch gewinnen! Zum Beispiel einen 
: kompletten Schneider PC! 
Bitte kreuzen Sie die zutreffenden Kästchen an und 
vergessen Sie nicht, die wenigen Fragen — in Druck- 
schrift bitte — zu beantworten. Das Ganze dann in ei- 
nen Fensterbriefumschlag — wenn Sie keinen haben, 
müssen Sie leider die Adresse selbst schreiben — mit 
80 Pfennig frankieren und in den nächsten Brief- 
kasten. 
ACHTUNG! WIR NEHMEN NUR ORDNUNGSGE- 
MÄSS FRANKIERTE SENDUNGEN AN! 
Briefe mit Nachgebühr werden zurückgesandt! 


UNSERE FRAGEN AN SIE: 


ALTER 

Bis 9 Jahre 
10-19 Jahre 
20-29 Jahre 
30-39 Jahre 
40-49 Jahre 
50 und älter 


© 


O00D0D00 


BERUF 

Schüler/Student/Azubi 

Freier Beruf/Selbständig 
Leitender Angestellter/Beamter 
Landwirt 

Facharbeiter 

Arbeiter 

Ohne Beruf 


OO000000 


SCHULBILDUNG 

Volksschule 

Mittlere Reife/Handelsschule 
Abitur/Fachoberschule/Studium 


00D 
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0) 


6) 


FAMILIENSTAND » 
Alleinlebend 
Verheiratet 

Verheiratet mit Kindern 


OO0D 


HAUSHALTS-NETTOEINKOMMEN 
Bis DM 1000 

Bis DM 2000 

Bis DM 2500 

Bis DM 3000 

Bis DM 4000 

Über DM 4000 


OOOO00D0 


Hinweis: Wenn Sie diese Frage beant- 
worten, bitte das Netto-Einkommen aller 
Beschäftigten des Haushaltes angeben! 


Arbeiten Sie beruflich mit einem Com- 


puter? JaU) Nein D 
Wenn ja, mit welchem? 
BESITZ 
Haben Sie einen Computer? 
Ja OD Nein D 


Wenn ja, welchen? 


Wenn Nein, wollen Sie einen Computer 
kaufen? JalD Nein D 
Wenn ja, welchen? 


Wenn Sie mehrere Computer haben, wel- 
chen benutzen Sie hauptsächlich? 


GEWINNSPIEL 


Haben Sie zum Computer noch Peri- 
pherie? 


Ich Ich will 
besitze kaufen 

Drücker „nass O O 
Plotter „es. sr. 845 m O 
Floppy 2222222. Oo Oo 
Kassettenrecorder........ U U 
Interface #0... oO DO 
Toolkit. u... 24806 DO O 
Akustik-Koppler......... oO O 
Modem ....... 22222022. U oO 
Joystick .....22 2222... DO DO 
Monitor ...2 22222222. DO O 
Fernseher ............. m O 
Matrix-Drucker.......... O oO 
Schreibmaschine ......... m O 
Typenrad-Drucker ...... DO | 
SONSLIGE8 „un ee Oo oO 
SOFTWARE 


Welche Software (keine Spiele) besitzen 
Sie? 


Welche Art Spiele besitzen Sie? 


Denkspiele O oO Ü 
Actionspiele oO U oO 
Abenteuer/ 

Adventurespiele im) O m 
Geschicklichkeits- 

spiele Oo oO O 
Sonstige oO DO oO 


Wieviel insgesamt? 


Können Sie schon programmieren? 
Ja OD Nein DO 
Wenn ja, in welcher Sprache? 


Welche der Programmier-Sprachen möch- 


ten Sie gerne lernen? 
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® © 


An welchen Listings im Heft sind Sie 
hauptsächlich interessiert: 
Spiele 

Grafik 
Anwenderprogramme 
Utilities 


O00D 


Wieviele Stunden im Monat verbringen 
Sie durchschnittlich vor Ihrem Compu- 
ter? 


Was machen Sie mit Ihrem Computer? 
Spielen 

Lernen 

Archivieren (Sammlungen usw.) 
Terminkalender führen 

Briefe schreiben 

Berufliche Fortbildung 

Am BTX-Netz teilnehmen 
Programmieren lernen 

Weiß ich noch nicht 


OOODOODOOODH 


Sprechen/verstehen Sie englisch? 
Ja OO NeinDO 


Nutzen (oder.wollen Sie nutzen) Sie Ih- 
ren Computer überwiegend 


im Haushalt usw. Ja DJ Nein DO 
Beruflich für die 
eigene Firma 


Ja [DJ Nein D 
Beruflich, um an Ihrem Arbeitsplatz 
weiterzukommen? Ja D Nein DO 


AKTIVITÄTEN 
Sind Sie Mitglied ineinem | 
Computer-Club? Ja DJ Nein D 
Wenn Nein, interessiert Sie die 
Mitgliedschaft in einem solchen Club? 

Ja U Nein D 
Haben Sie noch andere Hobbys? 

Ja DJ Nein D 


Wenn ja, welche? 


GEWINNSPIEL 


LESEGEWOHNHEITEN: 


Lesen Sie außer SCHNEIDER AKTIV 


noch andere Computer-Zeitschriften? 
Ja [DJ NeinD 
Wenn ja, welche? 


Welche davon haben Sie abonniert? 


Wieviele Personen lesen außer Ihnen 


noch SCHNEIDER AKTIV? 


Wenn Sie SCHNEIDER AKTIV lesen, 
lassen Sie sich dabei stören? 
Ja [DJ Nein D 


Wenn Sie SCHNEIDER AKTIV lesen, 
wie bewerten Sie dabei dieses Heft? (Bit- 
te eine Zahl von 1-6, wobei 1 die höch- 
ste, 6 die schlechteste Note ist.) 


Wenn Sie den Inhalt von SCHNEIDER 
AKTIV vorschlagen könnten, welchen 
Themen würden Sie mehr Raum geben 
oder besonders vorziehen? 
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Welche SCHNEIDER-Zeitschrift gefällt 
Ihnen am besten? 


SCHNEIDER AKTIV OD 
CPC-MAGAZIN oO 
CPC-INTERNATIONAL oO 


Wie beurteilen Sie den 
Kassettenservice 
Disketten-Service 
Kleinanzeigenservice 

von SCHNEIDER AKTIV? 
(Bitte eine Zahl zwischen 1 und 6, wobei 
1 ya beste und 6 die schlechteste Note 
ist. 


O00D 


KAUFGEWOHNHEITEN: 
Ich möchte meinen SCHNEIDER 
noch .......... Jahre behalten. 


Meinen Computerzubehör kaufe ich vor- 
wiegend: 

Im Warenhaus DO 
beim Computerhändler m) 
im Versandhandel m 
auf dem Gebrauchtmarkt über 
Kleinanzeigen Oo 


Was veranschlagen Sie an Neuanschaf- 
fungskosten, um Ihre Ausrüstung zu 
vervollkommnen (pro Jahr?) 


DM 


Wenn Sie den Kauf eines neuen Com- 
puters planen, welcher Art? 

Home-Computer m) 
Personal-Computer oO 


Was würden Sie ausgeben für neue 


Computer DM 
Drucker/Plotter DM 
Diskettenstation DM 
Fertige Programme _________ DM 


Wenn Sie einen Personal-Computer kau- 
fen wollen, wonach richten Sie sich? 


Anzeigen in Fachzeitschriften? Oo 
Berichte in Fachzeitschriften? m 
Rat des örtlichen Fachhändlers? O 


Beratung durch einen 
unabhängigen Experten? 
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GEWINNSPIEL 


Wann sitzen Sie am häufigsten am Com- 
puter? 
Tag DO Nachts D Wochenende U 


® 


Rauchen, Trinken, Essen Sie häufig beim 
Computern? Ja U Nein D 


Verbringen Sie Ihren Urlaub mit Ihrem 
Hobby Computern? Ja OD NeinD 


® © 


GESCHLECHT: 
Männlich 
Weiblich 


® 


00 


WICHTIGE RECHTLICHE GARANTIE! 


Wir garantieren, daß die von Ihnen gemachten Anga- 
ben ohne jegliche personenbezogenen Daten (Na- 
me, Anschrift usw.) lediglich zu statistischen Zwek- 
ken elektronisch gespeichert und verarbeitet werden. 
Sämtliche Einzeldaten fallen zudem unter das Re- 
daktionsgeheimnis und werden sofort nach Auswer- 
tung gelöscht, der entsprechende Datenträger unter ° 
notarieller Aufsicht vernichtet. Eine Weitergabe an 
Dritte ist absolut untersagt. Zusätzliche Sicherheit: 
Sie müssen diesen Fragebogen nicht mit Ihrer An- 
schrift versehen, es genügt uns auch lediglich Ihre 
Postleitzahl! (Dabei verzichten Sie allerdings auf die Unser Hauptgewinn: Ein PC von Schneider! 
Teilnahme an unserem Gewinnspiel.) 


Teilnahmebedingungen: ACHTUNG: WIR WEISEN NOCH EIN- 


Unter den eingesandten Fragebogen werden — unter MAL DARAUF HIN. DASS PERSONA- 
Ausschluß a — die ausgelobten Preise LIEN NICHT GESPEICHERT WERDEN! 
ausgelost. Einsendeschluß ist der 30. November 1986 . 5 

(Datum des Poststempels). Die Gewinner werden \e können deswegen auch anonym 
in der Ausgabe 2/87 veröffentlicht und/oder per- bleiben, wir bitten dann lediglich um 
sönlich benachrichtigt. Ihre Postleitzahl! 


Vorname 
Name 
SCH N EI DER Straße/Hausnr 
V & 
AKTI 1107 Postleitzahl/Ort 
. 8044 Lohhof Telefon (mit Vorwahl) 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


Kassette (20 DM) Diskette (30 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein U] 


Gegen Bankabbuchung am Versandtag 
Meine Bank (mit Ortsname) 
Meine Kontonummer 


Meine Bankleitzahl (steht auf jedem Bankauszug) 
Vorname Nachname 
SING en nn PZN oe en oeet. UBS 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV. 
KASSETTENSERVICE 11/86 
Postfach 1107 

8044 Unterschleißheim 


RESERVIERUNGS-SERVICE 
ee elite a ee 


Bitte reservieren Sie mir ( ) Exemplare(e) 
SCHNEIDER AKTIV SPECIAL zum Preis vonDM 12,80 statt 14,80 
Bestellschluß: 25.11. 


Ich zahle 
DO per beiliegendem Verrechnungsscheck 
OD bargeldios per Bankeinzug von meinem Konto 


SCHNEIDER Name 

| AKTIV Straße/Hausnr. en BE s ed 

Reservierungs- tz ZVENUE EEE SELSIER. EEE 
a Bei Bankabbuchung: 

Service | Kto-Nr.: Bankleitzahl _____ 


Postfach 1107 Bei (Bank und Ort) _—_ EEE EET ER 
8044 Lohhof Unterschrift =. == FRE TIEREN SEO ER 


Ausschneiden und bis spätestens 25.11. einsenden. 
Danach DM 14,80! 
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DM 14,80 


ÖS 124 
SFR 14,80 


III 


Das grosse 
Sonder-Heft fü 
alle Behnalder] 


EETLETERN 


VERRREN 


JETZT RESERVIEREN 
UND GELD SPAREN 


TELTENNT 
ERSTER 
TIIETFSETFETFEREN 


POREURNBRR 


ES ERTRRINNENEN 


Re esiec SERIE ö 


ARRRURUURUN RENT 


NR N 


\ ri: November am Kiosk" 


BERTELSMANN 
INFORMATIONS- 
SERVICE MIT NEUEM 
INTERNATIONALEN 
DATENBANKEN- 
PROGRAMM UND 
EIGENEM GROSS- 
RECHNER 


Den elektronischen Zu- 
griff auf über 120 natio- 
nale und internationale 
Datenbanken des ameri- 
kanischen Datenbankan- 
bieters BRS Information 
Technologies (New York) 
bietet ab sofort die Ber- 
telsmann Informations- 
Service GmbH (Mün- 
chen) exklusiv für die 
Bundesrepublik Deutsch- 
land, Österreich und die 
Schweiz an. 
Das breite Informations- 
angebot von BRS Infor- 
mation Technologies, 
mit über 45 Mio. Doku- 
mentationseinheiten ei- 
ner der größten Daten- 
bankenanbieter der Welt, 
erstreckt sich über die 
Bereiche Wirtschaft, Tech- 
nik und Patente, Chemie, 
Physik und Medizin, 
Geistes- und Sozialwis- 
senschaften. 
Angeboten werden bei- 
spielsweise neben aktuel- 
len Informationsdiensten 
(wie dem American 
Banker News Service oder 
Investors Rateline) zahl- 
reiche Wirtschaftsdaten- 
banken mit Export-, Fir- 
men- und Produktinfor- 
mationen, so z.B. von 
den Informationsanbie- 
tern Disclosure und 
Predicasts, Technikdaten- 
banken wie INSPEC, 
Industry and Internatio- 
nal Standards und Busi- 
ness Software oder Medi- 
zindatenbanken wie bei- 
spielsweise DRUG und 
Physicians Data Queries. 
Die Bertelsmann Infor- 
mationsService GmbH 
beendet gleichzeitig mit 
dem Start eines eigenen 
leistungsstarken Groß- 
rechners (Host) in Güters- 
loh die Zusammenarbeit 
mit dem Schweizer Host 
Data-Star. Auf dem 
Rechner in Gütersloh wer- 
den bereits zum Start 
deutschsprachige Patent- 
und Wirtschaftsinforma- 
- tionen angeboten. 


SERVICE 


Noch in diesem Jahr ist 
auch eine Rechnerkopp- 
lung zwischen New York 
und Gütersloh vorgese- 
hen, um den Datenbank- 
nutzern über den Host 

in Gütersloh den sekun- 
denschnellen Direktzu- 
griff auf die BRS-Daten- 
banken zu erleichtern. 
Augenblicklich erfolgt 
der Zugang direkt über 
Datex-P-Wählleitungen. 
Für die nächste Zeit plant 


die Bertelsmann Infor- 
mationsService GmbH 
ihr Datenbankenangebot 
in den Bereichen Wirt- 
schaft und Patente weiter 
auszubauen. 


Kontakt: 

Dr. Rudolf Huber 
Bertelsmann Informations- 
Service GmbH 
Rosenkavalierplatz 4 
8000 München 81 

Tel.: 089/926907-66 


RUND UM 


PC & CPC 


"DER PUNKT-MATRIX- 


DRUCKER CITIZEN 
120D ERWEITERT DIE 
DRUCKER-PALETTE 
VON CITIZEN EUROPE 


Schon kurze Zeit nach der _ 


Markteinführung erwei- 
tert Citizen Europe sein 
Computer-Peripherie- 
angebot auf dem europä- 
ischem Computer-Markt' 
mit der Einführung des 
neuen ‘low-cost‘ Punkt- 
Matrix-Druckers Citizen 
120D, der seit Dezember 
bei den authorisierten 
Citizen-Händlern verfüg- 
bar ist. 

Der neue Drucker — 
Preis unter DM 1000,— 
ergänzt Citizen bereits 
eingeführte Palette von 


- Punkt-Matrix-Druckern. 


Ebenfalls neu auf dem 
Markt ist der ‘Premiere 
35‘, Citizen Europes neu- 
er schneller und leiser 
Typenraddrucker mit 
Briefqualität. 
Kurzcharakteristik des 
Citizen 120D: 

— Volle Zwei-Jahres-Ga- 


rantie auf Teile und 
Arbeitszeit 

— IBM-und Epson-kom- 
patibel 

— 120 Zeichen pro Se- 
kunde (CPS) bei 
Datendruck 

— 25 CPS für Korres- 
pondenzqualität 

— 4KByte-Speicher 

— Volle Grafikfähigkeit 
mit hoher Auflösung 

— Einfache Papierzufüh- 
rung, Traktor mit ver- 
stellbarer Breite 

— Vom Anwender aus- 
tauschbare, von außen 
zugängliche Interface- 
Steckmodule 

— Vom Anwender aus- 
tauschbarer Druckkopf 


Jack Bennett, Vizepräsi- 
dent Sales und Marketing: 
„Die Einführung des 
Citizen 120D demonstriert 
unsere Fähigkeit, Markt- 
chancen wahrzunehmen. 
Unsere Erfahrung in der 
Präzisionstechnik läßt uns 
keinen Vergleich in Hin- 
blick auf Qualität, Preis 


“ und Ausstattung scheuen. 


SUPERFILE 

Superfile ist eine modu- 
lar aufgebaute sequen- 
tielle Datei. Das heißt, 
daß sich bei der Arbeit 
mit Superfile jeweils nur 
der benötigte Programm- 
teil im Speicher befindet, 
so daß Sequentiellda- 


teien mit einer Größe 

von ca. 27 KByte bearbei- 
tet werden können. 

Das Programm beinhaltet 
einen Maskengenerator 
mit dem frei definierte 
Masken erstellt werden 
können. In diesem Pro- 
grammteil wird die vor- 
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läufige Dimensionierung 
der Datei sowie der 

Name der Eingabefelder 
und deren Eingabegröße 
und Lage auf dem Bild- 
schirm festgelegt. Diese 
Daten werden unter dem 
Namen der Datei mit dem 
Zusatz ‘.mas‘ abgespei- 
chert. 

Das Programm bietet alle 
gängigen Möglichkeiten, 
wie Suchen, Drucken 

und Sortieren. 

Starten des Maskengene- 
rators mit run‘-MASKGEN‘ 
Starten des Hauptpro- 
gramms mit run ‘-SUPER‘ 
oder aus dem Menü des 
Maskengenerators 

Eine Besonderheit dieses 
Programms bietet das 
Hilfsprogramm ‘-REDIM‘ 
Mit diesem eigenständigen 
Hilfsprogramm läßt sich 
die im Maskengenerator 
festgelegte Dimensionie- 
rung nachträglich ändern, 
falls diese zu klein oder 
wesentlich zu groß gewählt 
wurde. 

Tips zum Programm: 
Wenn im Eingabemodus 
der oben angezeigte freie 
Speicherplatz unter 2000 
Bytes sinkt, sollte man 
das Hauptmenü anwählen 
und danach wieder in den 
Eingabemodus zurückkeh- 
ren. Dabei wird der String- 
speicher des Rechners ge- 
löscht, so daß wieder 

der korrekte freie Spei- 
cherplatz angezeigt wird. 
Sollte das Programm wi- 
der Erwarten mit einer 
Fehlermeldung abbre- 
chen, kann jedes Modul 
ohne Datenverlust, mit 
‘GOTO 10‘ wieder gestar- 
tet werden. 

Die angelegten Daten 
müssen sich auf der Pro- 
grammdiskette befinden. 


Hinweis: 

Dieses Programm ist in 
Basic geschrieben und 
wird ungeschützt abgespei- 
chert. Damit sind dem 
Anwender Änderungen, 
z.B. in den Druckroutinen, 
(Schriftartenpassung etc.) 
möglich. 


Ferdi’s Computer 
Software 

EDV Service 
Hoeftestr. 32 
4400 Münster 
Tel. 0251/619881 
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DISC MECHANIC 464/664/6128 Diskette DM 69.- 


Disc Mechanic ist das Disketten-Utility Programm, das jeder Schneider Besitzer haben sollte. Disc Mechanic ermöglicht das 
Formatieren und Kopieren von Disketten bis zu 42 Tracks. Dabei werden neue Diskettenformate, die als Kopierschutz 
dienen, mitkopiert. Mit dem eingebauten Diskettenmonitor können Sie ihre Disketten "unter die Lupe nehmen" und 
Änderungen vornehmen. Löschen, Umbenennen sowie das Zurückholen von bereits gelöschten Files ist extrem komfortabel. 
Belegte und nicht belegte Sectoren werden graphisch angezeigt. In den wichtigsten Funktionen ist ein Ausdruck des 
Bildschirms auf einen Drucker möglich. Auf der gelieferten Diskette befinden sich weiter zwei Programme, SPEEDKIT und 
ZERODISC, mit denen Sie Ihre Floppy um ca. 20% schneller machen können. Mit ZERODISC lassen sich versteckte und 
unformatierte Tracks innerhalb weniger Sekunden auffinden. Disc Mechanic arbeitet auch mit zwei Laufwerken. Deutsche 
Anleitung. Bei Bestellung Computertyp angeben. Wir weisen ausdrücklich darauf hin, daß nach dem Urhebergesetz (UrhG) 
die Vervielfältigung eines Programms für die Datenverarbeitung oder wesentlicher Teile davon ohne ausdrückliche 
Einwilligung des Berechtigten verboten ist. 


TELE-COM 464/664/6128 Diskette DM 69,- 


TELE-COM 464/664/6128 ist ein Terminalprogramm zur Datenfernübertragung (DFÜ) über die Schneider RS232 
Schnittstelle, das seinesgleichen sucht. Es verfügt über Pulldown-Menues sowie professionelle Fenstertechnik mit 7 
unterschiedlichen Schriften, die im Terminalmodus über ESC-Codes angesteuert werden können; wahlweise deutscher oder 
amerikanischer Zeichensatz, Mitprotokollierung auf Drucker möglich; 50 bis 1200 Baud werden unterstützt, 5 bis 8 
Datenbits, 1 oder 2 Stopbits, Umschaltung zwischen Voll- und Halbduplex, keine Parität, ODD oder EVEN, Up- und 
Download möglich; bei Upload Übertragungsgeschwindigkeit drosselbar, Up- und Download wahlweise in ASCII oder in 
XMODEM (mit XMODEM können Bilder und Binärprogramme übertragen werden), Funktionstastenbelegung möglich; 
Online-Uhr (zeigt die Länge der Verbindung in Stunden, Minuten und Sekunden an), Farbeinstellung möglich. Deutsche 
Anleitung. Sie erhalten beim Kauf dieses Programms ein kostenloses Paßwort für unsere Mailbox. 


BELLE 


Kine Wis 


AKUSTIKKOPPLER Dataphon s21d DM_269,- 
SCHNEIDER RS232 SCHNITTSTELLE (oro 464,664) DM_148.- 
SCHNEIDER RS232 SCHNITTSTELLE (crc 6128) DM_178,- 
VERBINDUNGSKABEL pataphon 5214 und RS232 Schnittstelle DM _47,- 

AKUSTIKKOPPLER-PAKET (cPc 464,664) DM_489,- 


# RS232 Schnittstelle, & Anschlußkabel, & Akustikkoppler, & TELE-COM 464/664/6128 


AKUSTIKKOPPLER-PAKET (cPc 6128) DM_519,- 
% RS232 Schnittstelle, & Anschlußkabel, & Akustikkoppler, & TELE-COM 464/664/6128 


Versand per Nachnahme oder Vorausscheck zzgl. DM 8,- Versandkosten 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


GIGGE ELECTRONICS 


Abt. 9SA - Schneefernerring 4 - 8500 Nürnberg 50 
HOTLINE bis 20 Uhr - Tel. 0911/84244 
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LISTING 


ADRESSVERWALTUNG 


Vor ca. 3 Monaten verkaufte ich meine komplette 
C64-Anlage und legte mir den Schneider CP6128 
zu. 

Da ich nun einiges an Adressen mit dem C64 ver- 
waltet hatte und nun keinerlei Software für meinen 
Schneider mein eigen nennen konnte, diesen sowie- 
‘so kennen lernen wollte, entstand daraus die Idee, 
ein Adress-Verwaltungsprogramm zu schreiben. 

Entstanden ist aus dieser Idee ein einfach zu be- 
dienendes Programm mit allen für mich wichtigen 
Komponenten. Diese lauten: 

1. Menü-Steuerung 

2. Adressen ein- und ausgeben sowie korrigieren 
3. Adressen laden und speichern 

4. Adressen einzeln drucken oder als Liste 


**Djjeses Programm läuft nur auf dem CPC6128** 
*** Es muß das Programm ‘BANKMAN.BIN‘ auf 
der Diskette vorhanden sein*** 


Nach Starten von ‘ADRESSEN‘ wird als erstes 
‘BANKMAN.BIN‘ geladen und gestartet. Danach 
wird eine evtl. bestehende ADRess-DATei einge- 
lesen und in den zweiten 64kRam hinterlegt. 

Daß das Programm betriebsbereit ist, ist daraus 
zu ersehen, daß ein leeres Statusfenster aufgebaut 
wird. 


Die Bedienung von ‘ADRESSEN: 


Für Eingaben, die durch ‘?‘ gekennzeichnet sind, 
die goldene Ausnahme bildet die Meldung ‘weiter 
J/N?‘, gilt: Abschluß durch [RETURN]. 

Für Fehlermeldungen gilt: weiter mit [SPACE], 
danach Rückkehr ins Menü. 
Eine Adresse ist wie folgt aufgebaut: 
Anrede: über eine Kennziffer einzugeben, nur die 
Kennziffer wird im Datensatz abgelegt. 


Vorname: maximal 19 Zeichen 

Name: maximal 20 Zeichen 

Straße maximal 40 Zeichen 

Postleitzahl: 4 Zeichen 

Ort: maximal 35 Zeichen 

Telephon: maximal 20 Zeichen 

Zusatz 1/2: maximal je 40 Zeichen, für Anwender 
als Notizzeile vorgesehen 

Kurzzeichen: 1 Zeichen, dient der Druckerausgabe 
zum Ausgeben einer grob sortierten Liste 


::: Ausgabe einer Adresse ::: 

Im Ausgabemode wird nach einem Suchbegriff ge- 
fragt, Anrede etc. Wird keine Eingabe gemacht, 
wird die komplette Liste gezeigt. Felder, von denen 
der Inhalt unbekannt ist, werden mit [RETURN] 
quittiert. 

Es braucht im Suchfeld nur der 1.ste Buchstabe 
oder die l.ste Ziffer stehen, z.B. Feld ‘Anrede‘: 
Eingabe [ 3 ]: es werden alle Firmen gefunden und 
.der Reihe nach gezeigt. 
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Es kann allerdings ein Datensatz nicht gefunden 

werden, nach dem mit ‘a‘ gesucht wird, der aber 
mit ‘A‘ anfängt. 
Es besteht die Möglichkeit, im Ausgabemode Adres- 
sen zu löschen bzw. zu korrigieren. Die zu ändern- 
de Adresse wird erst gesucht. Erscheint die Mel- 
dung weiter J/N?‘, kann über die Funktionstasten 
der Lösch- bzw. Korrigiermode aufgerufen werden. 
Gegen unbeabsichtigtes Handeln existiert eine Si- 
cherheitsabfrage. Nach erfolgtem Korrigieren oder 
Löschen ist das Programm wieder im Suchmode 
(weiter J/N?) und es kann nach dem nächsten Da- 
tensatz gesucht werden. Im Löschmode wird nach 
Ausführung des Löschvorganges die nächste im 
Speicher befindliche Adresse um einen Platz vorge- 
rückt und angezeigt. Die Meldung ‘keine weiteren 
Daten‘ wird mit [SPACE] quittiert, das Programm 
geht ins Menü. 


ı:: Eingabe einer Adresse ::: 

Die Adresse wird der Reihe nach eingegeben. Un- 
benutzte Felder werden mit [RETURN] abge- 
schlossen. Nach erfolgter Eingabe kann die Adres- 
se noch korrigiert werden. Nicht zu korrigierende 
Felder werden mit [RETURN] abgeschlossen. Nach 
erfolgter Korrektur wird die Adresse nochmals 
gezeigt. Dieses kann wiederholt werden, bis die 
Frage ‘weiter]/N‘ beantwortet wird. Antwort ‘J‘ 
heißt nächste Adresse eingeben, ‘N“ zurück in die 
Menüwahl. 


ı:: Drucken einer Adresse oder Liste ::: 

Es können eine einzelne Adresse oder aber die kom- 

plette Liste gedruckt werden. Die Druckersteue- 

rung ist auf einen Epson FX85 zugeschnitten. 

Folgende Druckercodes sind verwendet worden: 

zeile 1750: &1b &34 es wird der Italic Character 
set eingestellt 


zeile 1780: &Of condensed Printing wird aus- 


ewählt 

: &1b &44 es werden horizontal Tabs ge- 
setzt 

:49 91 bezeichnen die TAB-Positio- 
nen 

: 00 bezeichnet das Ende der Tabu- 
latorpositionen 

zeile 1900: 09 print tab ‚Druckkopf auf 


nächsten Tabulator 
:&0d &0a Carriage Return und Linefeed 
ausgeben 
zeile 1910 + 1920: siehe zeile 1900 
zeile 1980: &12 &Oc condensed Printing ausschal- 
ten und Formfeed ausgeben 


::: Programm beenden ::: 

Bei Programmende durch die Funktionstaste, und 
nur dann, werden die Daten auf Diskette gespei- 
chert und das Programm ‘ADRESSEN‘ wird ge- 
löscht. (Andreas Guhr) 


LISTING 


10° RERRKRRKKKKIKKKKIIIIIIKII III KU II IX 


17 ’x 

18 ’* CPC 6128 
19 ’x 

20 ’* 040 

21 ’* 


x 
x 
x 
x 
x 
16 ’* fuer Schneider aktiv * 
x 
x 
x 
x 
x 
22 RRRRKKKKKKKKKKKKKKKKKKKK KK KK KK KK X 


1030 SYMBOL AFTER 256 ?’ USER SIGNSET LOESCHEN 

1040 MEMORY &TFFF ’ BASICBEREICH BEGRENZEN 

1050 LOAD "bankman.bin" 

1060 CALL &8000 ” AUFRUF BANKMAN RSX-BEFEHLE 

1070 ON ERROR GOTO 2960 

1080 anrede$="3" :vorname$="Computer" :name$="aktiv" 

1090 strasse$="Franz-Keim-Str. 12” 

1100 post$="8540" :ort$="Schwabach" :te1$="09122/2882" 

1110 zusatz1$="Postfach 1201" 

1120 zusatz2$="ADRESS-KARTEI" 

1130 MODE 1:INK 2,7:INK 3,0:PEN 0:PAPER 2:CLS 

1140 SYMBOL AFTER 140:SYMBOL 140,&7F,8&80,&87,&75,&6.&5,&4,&7 

1150 SYMBOL 141,&FE,&1,&F1,&AF,8&60.&A0 ,&20,&E0:GOTO 1400 
’ . 


1170? MENUF-FENSTER 

1180 

1197 ORIGTN 350,210,320,640,42,223 

1200 CILG 3:GRAPHICS PAPER 2:GRAPHICS PEN 1,1 

1210 TAG:PRINT" fi - AUSGABE"; :MOVE 0,-32:PRINT" f4 - EINGABE"; 


122C MWE 0,-64:PRINT" f7 - DRUCKEN"; :MOVE 0,-128:PRINT" fO - PRG.-ENDE";:TA 
GOFF : RETURN 

1230 ? 

1240 ’ AUSGABEFENSTER DEFINIEREN 

1250 ’ 


1260 WINDOW 1,20,12,22:CLS 

1270 ORIGIN 0,395,0,640,257,400 

1280 ’ 

1290 ’ AUSGABE DER ADRESSE 

1300 ? 

1310 RESTORE 1390:CLG 2:GRAPHICS PAPER 1 

1320 GRAPHICS PEN 3,1:IF VAL(anrede$)=0 THEN 1340 

1330 FOR i=1 TO VAL(anrede$) :READ a$:NEXT:TAG:PRINT a$; :TAGOFF 

1340 MOVE 624,0:TAG:PRINT sort$; :TAGOFF 

1350 MOVE 640,-100:MASK &X110011:DRAW -10,-100 

1360 TAG:MOVE 0,-20:PRINT vorname$+" "+name$; 

1370 MOVE 0,-38:PRINT strasse$; :MOVE 0,-62:PRINT post$+" "+ort$; :MOVE 0,-80: 
PRINT CHR$(140)+CHR$(141);" ";tel$; 

1380 MOVE 0,-104:PRINT zusatz1$; :MOVE 0,-122:PRINT zusatz2$ ; : TAGOFF : RETURN 
1390 DATA Frau,Herr, Firma 

1400 ’ 

1410 ’ HAUPTEIL 

1420 ’ 

1430 datensatz=0:BORDER 7:WINDOW £3,1,40,10,11:GOSUB 1160:GOSUB 1230:PEN £3, 


52 


LISTING 


1:PAPER £3,3 

1440 PEN 2: !BANKOPEN, 220:r%=0:OPENIN "adr-dat" 

1450 INPUT £9,datensatz:FOR i=0 TO datensatz-1:INPUT £9,d$ 

1460 :iBANKWRITE,@r%,d$:NEXT i 

1470 CIOSEIN:PEN O 

1480 CLS:CLS £3:IF INKEY(13)=0 THEN LOCATE £3,1,1:PRINT £3, "AUSGABE f2 = 

korrektur f3 = loeschen ":GOTO 1530 

1490 IF INKEY(20)=0 THEN LOCATE £3,5,1:PRINT £3, "EINGABE" :GOTO 1660 

1500 IF INKEY(10)=0 THEN LOCATE £3,1,1:PRINT £3 , "DRUCKEN" :GOTO 1720 

1510 IF INKEY(15)=0 THEN LOCATE £3,5,1:PRINT £3, "PROGRAMM - ENDE" :GOTO 2020 
1520 GOTO 1480 

1530 ’ 

1540 ’ AUSGABE 

1550 ’ 

1560 CLEAR INPUT:RESTORE 2320 :s$=""" 

1570 FOR i=0 TO 9:READ a$,1:CLS:LOCATE 2,1:PRINT "* SUCHBEGRIFF *%":LOCATE 1, 
3:PRINT a$ 

1580 IF a$="Anrede” THEN PRINT " 1 - Frau":PRINT " 2 - Herr":PRINT " 3 - Fir 
ma" :PRINT "Kennziffer eingeben" 

1590 INPUT s$(i):IF s$(i)<>"" THEN s$(i)=s$(i)+STRING$(1-LEN(s$(i)),O) ELSE 

s$(i)=STRING$ (1,0) 

1600 s$(9)=UPPER$ (s$(9)) :s$=s$+s$(i):NEXT i:s=0 

1610 r%=0: |BANKFIND,@r%,s$,s:IF s>datensatz-1 OR r%<=-1 THEN LOCATE 1,10:PRI 
NT "keine weiteren daten":GOTO 3030 

1620 d$=STRING$ (220,32) :!BANKREAD,@r%,d$ 

1630 GOSUB 2850:G0OSUB 1280:s1=r%:s=r%+1:IF druck THEN RETURN 

1640 taste=1: GOTO 2390 

1650 

1660 ’ EINGABE 

1670 ’ 

1680 CLEAR INPUT:GOSUB 2120 

1690 GOSUB 1280:G0SUB 2530:IF korr=1 THEN GOSUB 2750:GOTO 1690 

1700 GOSUB 2790 

1710 r%=0: | BANKWRITE ,@r% ,d$ ‚datensatz :datensatz=datensatz+1:taste=2:G0OTO 239 
0 

1720 ’ 

1730 ’ DRUCKER - AUSGABE 

1740 ’ 

1750 WIDTH 136 :PRINT£8,CHR$ (&1B)CHR$(&34) ° Printer select italic characters 
1760 LOCATE £3,10,1:PRINT £3,"f8 = Adresse f9 = Liste" 

1770 IF INKEY(11)=0 THEN LOCATE 2,11:PRINT"Adresse drucken" :adr=1:GOTO 1800 

1780 IF INKEY(3)=0 THEN LOCATE 2,11:PRINT"Liste drucken" :PRINT£8,CHR$(&F):P 
RINT£8 ‚,CHR$ (&1B)CHR$ (&44 )CHR$ (A9)CHR$ (91)CHR$ (0) :GOTO 19 


1830 druck=1:GOSUB 1530 :druck=0:G0OSUB 1840:taste=3:G0OTO 2390 
’ 


1850 ’ Daten drucken 

1860 ’ 

1870 RESTORE 1390:IF VAL(anrede$)=0 THEN 1890 

1880 FOR i=1 TO VAL(anrede$) :READ a$:NEXT: PRINT £8,a$+" "; 

1890 PRINT £8,vorname$+" "name$; 

1900 IF adr=0 THEN PRINT £8,CHR$(9)strasse$; ELSE PRINT£8,CHR$(&D)CHR$(&A)st 
rasse$ 

1910 IF adr=0 THEN PRINT £8,CHR$(9)post$+" "+ort$ ELSE PRINT £8,CHR$ (&D)post 
$+" "+ort$:IF adr=1 THEN RETURN 
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1920 PRINT £8,"Telefon "+tel$ CHR$(9) "{"+zusatzi1$+" "+zusatz2$+"}" 
1930 PRINT£8 ‚STRING$ (132, "=") :RETURN 

1940 °’ 

1950 ’ Liste drucken 

1960 ’ 

1970 s=0:FOR j=65 TO 90:s$=STRING$ (219,0)+CHR$(.j) 

1980 r%=0: ;BANKFIND,@r%,s$,s:IF r%<=-1 THEN s=0:NEXT j:PRINT£8,CHR$ (&12)CHR$ 
(&C):GOTO 1480 

1990 d$=STRING$ (220,32): !BANKREAD,@r%,d$:GOSUB 2850:GOSUB 1840 
2000 s=r%+1:GOTO 1980 

2010 ’ 

2020 ’ PROGRAMM - ENDE 

2030 ’ 

2040 OPENOUT "adr-dat" 

2050 WRITE £9,datensatz 

2060 r%=0:FOR d=0 TO datensatz-1 

2070 !BANKREAD,@r%,d$,d:WRITE &£9,d$ 

2080 NEXT d 

2090 CLOSEOUT: !ERA, "adr-dat.bak" 

2100 BORDER 1:PEN 1:PAPER 0:MODE 1:CLEAR INPUT:NEW 

2110 ’ 

2120 ’Unterprogramm Adressein- & ausgabe 

2130 
2140 CLEAR INPUT:RESTORE 2320:FOR i=0 TO 9:READ a$,1 

2150 CIS:LOCATE 2,1:PRINT a$:IF a$="Anrede" THEN PRINT " 1 - Frau":PRINT " 2 
- Herr":PRINT " 3 - Firma" :PRINT "Kennziffer eingeben" 

2160 PRINT: INPUT a$(i):IF LEN(a$(i))>1 THEN GOSUB 2330:G0TO 2150 
2170 IF VAL(a$(0))>3 THEN GOSUB 2330:G0TO 2150 

2180 NFXT i:a$(9)=UPPER$(a$(9)):ON korr GOTO 2210 

2190 anrede$=a$ (0) :vorname$=a$ (1) :name$=a$(2) :strasse$=a$ (3): post$=a$(4): ort 
$=a$(5) :tel$=a$ (6) :zusatzi$=a$ (7) :zusatz2$=a$ (8) :sort$=a 

$(9) 

2200 RETURN 

2210 korr=0:IF a$(0)<>""THEN see ELSE a$(O)=anrede$ 

2220 korr=0:IF a$(1)<>""THEN vorname$=a$(1) ELSE a$(1)=vorname$ 
2230 IF a$(2)<>""THEN name$=a$(2) ELSE a$(2)=name$ 

2240 IF a$(3)<>""THEN strasse$=a$(3) ELSE a$(3)=strasse$ 

2250 IF a$(4)<>""THEN post$=a$(4) ELSE a$(4)=post$ 

2260 IF a$(5)<>""THEN ort$=a$(5) ELSE a$(5)=ort$ 

2270 IF a$(6)<>""THEN tel$=a$(6) ELSE a$(6)=tel$ 

2280 IF a$(7)<>""THEN zusatzi$=a$(7) ELSE a$(7)=zusatz1$ 

2290 IF a$(8)<>""THEN zusatz2$=a$(8) ELSE a$(8)=zusatz2$ 

2300 IF a$(9)<>""THEN sort$=a$(9) ELSE a$(9)=sort$ 

2310 RETURN 

2320 DATA Anrede,1,Vorname,19,Nachname ,20,Strasse,40,Postleitzahl ,4,0rt,35,T 

elephon, 20,Zusatz 1,40,Zusatz 2,40,Kurzzeichen, 1 

2330 ’ 

2340 ’° FEHLERMELDUNG EINGABE 

2350 ’ 

2360 LOCATE 2,10:PRINT "eingabe zu lang" 

2370 IF INKEY(47)<>0 THEN 2370 

2380 CLEAR INPUT :RETURN 


2390 ’ 

2400 ’ Weitere Ein-/Ausgaben ? 

2410 ’ 

2420 CLEAR INPUT:LOCATE 2,10:PRINT "weiter J/N ? 3 

2430 IF INKEY(45)=0 THEN LOCATE 2,10:PRINT" . ":ON taste GOTO 161 
0,1660, 1800 


2440 IF INKEY(46)=0 THEN taste=0:adr=0:GOTO 1480 
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2450 IF taste=1 THEN 2470 

2460 GOTO 2420 

2470 °’ 

2480 °’ LOESCHTASTE & KORREKTUR IM AUSGABE MODE 
2490 ’ 

2500 IF INKEY(14)=0 THEN GOSUB 2530:IF korr=1 THEN GOSUB 2750:r%=0: !BANKWRIT 
E,@r%,d$,s1:GOSUB 1280 

2510 IF INKEY(5)=0 THEN GOSUB 2600 

2520 GOTO 2420 

2530 ’ 

2540 ’ KORIGIER-MODE JA/NEIN 

2550 ’ 

2560 LOCATE 2,10:PRINT "korrigieren J/N ? " 
2570 IF INKEY(45)=0 THEN korr=1:RETURN 

2580 IF INKEY(46)<>0 THEN 2570 

2590 RETURN 

2600 ’ 

2610 °’ LOESCHROUTINE EINES DATENSATZES 

2620 °’ 

2630 CLEAR INPUT:LOCATE 2,10:PRINT "loeschen !!! J/N ?" 
2640 IF INKEY(46)=0 THEN RETURN 

2650 IF INKEY(45)<>0 THEN 2640 

2660 loesch=s1:r1%=0 

2670 FOR i=loesch TO datensatz 

2680 ;BANKREAD, @r%,d$,i+1 

2690 r%=0: !BANKWRITE,@r%,d$,i 

2700 NEXT i:datensatz=datensatz-1 

2710 r%=0: !BANKREAD,@r%,d$,si 

2720 IF datensatz=0 OR datensatz=s1 THEN d$=SPACE$ (219) 
2730 GOSUB 2850:GOSUB 1280 

2740 RETURN 

2750 ’ 

2760 ’ KORRIGIER-MODE 

2770 

2780 GOSUB 2120:korr=0 

2790 ’ 

2800 ”° DATENSTRING ERSTELLEN 

2810 ’ 

2820 d$="":RESTORE 2320 

2830 FOR i=0 TO 9:READ a$,1:d$=d$+ta$(i)+SPACE$(1-LEN(a$(i))):NEXT 
2840 RETURN 

2850 ’ 

2860 ’ ERSTELLEN DER STRINGS AUS D$ 

2870 ’ 

2880 anrede$=MID$ (d$,1,1):vorname$="":v1$="" 
2890 v$=MID$ (d$,2,19) :name$=MID$ (d$, 21,20) 

2900 i=INSTR (v$," "):IF i=0 THEN i=20 

2910 vorname$=MID$ (v$,1,i-l) 

2920 strasse$=MID$ (d$,41,40) :post$=MID$ (d$,81,4) 
2930 ort$=MID$ (d$,85,35) :tel$=MID$ (d$,120,20) 
2940 zusatz1$=MID$ (d$, 140,40) :zusatz2$=MID$ (d$, 180,40) :sort$=MID$ (d$,220,1) 
2950 RETURN 

2960 ’ 

2970 ’ FEHLERMELDUNGEN 

2980 ’ 

2990 LOCATE 2,10 

3000 amsdoserr=(DERR AND &7F) 

3010 IF amsdoserr=20 THEN PRINT" disk ist voll" 
3020 IF amsdoserr=18 THEN 1470 

3030 IF INKEY(47)<>0 THEN 3030 ELSE GOTO 1480 
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TIPS & TRICKS 


DATA-Generator für den Schneider CPC 464 

Nach Eingabe des BASIC-Laders ‚Data-Generator“ 
kann man diesen mit RUN starten. Falls man beim 
Eintippen keinen Fehler gemacht hat, ist das 
BASIC um den Befehl DGEN, Anfangsadresse, 
Endadresse, Zeilennummer erweitert. 

Nun kann man ein Maschinenprogramm, welches 
bei Anfangsadresse anfängt und bei Endadresse auf- 
hört, in DATA-Zeilen umwandeln. Jedes Byte wird 
dabei in eine zweistellige Hexzahl verwandelt. Die 
Angabe der Zeilennummer hat den Zweck, daß 
man die DATA-Zeilen an ein im Speicher stehendes 
BASIC-Programm hinten ranhängen kann. 

Hierbei muß man beachten, daß die Zeilennum- 
mer, mit welcher die DATA-Zeilen anfangen sollen, 
größer sein muß, als eventuell schon vorhandene 
BASIC-Zeilen. 

Falls man die Anzahl der Hexzahlen, die pro 
DATA-Zeile erzeugt werden sollen, ändern möchte, 
so muß man in Zeile 501 die fünfte Hexzahl im Li- 
sting die 08 entsprechend verändern. 

‚Die sechste Hexzahl in Zeile 501 bestimmt die 
Schrittweite, die bei der Zeilennummerierung ge- 
wählt wird. 

Anpassung an den CPC 664 
Hierzu muß man in Zeile 501 die ersten vier Hex- 
zahlen hinter dem DATA ändern. 

Die ersten beiden Hexzahlen sind die Adresse 
des Zeigers auf das Programmende in der Reihen- 
folge Lowbyte, Highbyte. 

Die nächsten beiden Hexzahlen sind die Adresse 
des Zeigers auf HIMEM ebenfalls in der Reihenfol- 
ge Lowbyte, Highbyte. 

Anschließend muß in Zeile 250 noch die Prüf- 
summe berichtigt werden. 


Anpassung an den CPC 6128 

Bei dem CPC 6128 ist in Zeile 250 die Prüfsumme 
44333 in 44275 zu ändern, sowie Zeile 501 durch 
501 DATA 66,AE,5E,AE,08,01,00,01,1C zu er- 


setzen. 


10 ?ERERRRRERRIKKIERIIKIIKIRIIIIIK KENN 
11 ’% 


x 
x 
x 
14 ’* Frank Siedel x 
15 ’* x 
16 ’* fuer Schneider aktiv x 
17 ’x x 
18 ’x CPC 464 x 
19 ’x x 

x 

x 

x 


22 EREKKKEKKKKKKKKKKKKKKKKKKKKKKK KK X 
100 ’ 

170 anfangsadresse=&9700 - 

180 endadresse=&9887 

190 MEMORY anfangsadresse-1 

200 summe=0 

210 FOR adresse=anfangsadresse TO endadr 
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240 NEXT adresse 

250 IF summe <> 44333 THEN PRINT "DATA-Z 
eilen auf Fehler weberpruefen !":END 

260 CALL &9707:’ RSX-Initialisierung 

270 PRINT "Das BASIC wurde um den RSX-Be 
fehl:" 

280 PRINT "!DGEN,Anfangsadresse ‚Endadres 


se,Zeilennummer" 

290 PRINT "erweitert." 

300 END 

501 DATA 83,AE,7B,AE,08,01,00,01,1C 
502 DATA 97,21,16,97,CD,D1,BC,3E,C9 
503 DATA 32,07,97,C9,00,00,1C,97,FF 
504 DATA 95,21,97,C3,26,97,44,47,45 
505 DATA CE,00,2A,02,97,4E,23,46,05 
506 DATA ED,43,1A,97,FE,03,CA,3A,97 
507 DATA CD,3A,98,C9,DD,4E,00,DD,46 
508 DATA 01,DD,5E,02,DD,56,03,DD,6E 
509 DATA 04,DD,66,05,E5,DD,E1,EB,97 
510 DATA ED,52,D2,5A,97,CD,31,98,C9 
511 DATA EB,13,2A,00,97,C5,4E,23,46 
512 DATA C5,FD,E1,C1,FD,2B,FD,2B,69 
513 DATA 60,7B,B2,CA,FD,97,FD,E5,FD 
514 DATA 23,FD,36,00,00,FD,23,FD,75 
515 DATA 00,FD,23,FD,74,00,FD,23,ED 
516 DATA 4B,05,97,09,FD,36,00,8C,FD 
517 DATA 23,FD,36,00,20,FD,23,0E,06 
518 DATA CD,FE,97,3A,04,97,47,7B,B2 
519 DATA 28,2A,FD,36,00,2C,FD,23,0C 
520 DATA CD,FE,97,E5,D5,FD,E5,D1,21 
521 DATA 1A,97,97,7B,9E,23,7A,9E,D1 
522 DATA E1,38,08,CD,43,98,11,00,00 
523 DATA 18,06,7B,B2,28,02,10,D6,79 
524 DATA 3C,C1,02,FD,36,00,00,FD,23 
525 DATA 7B,B2,20,96,FD,36,00,00,FD 
526 DATA 23,FD,36,00,00,FD,23,FD,E5 
527 DATA C1,2A,00,97,71,23,70,23,71 
528 DATA 23,70,23,71,23,70,23,71,23 
529 DATA 70,C9,E5,DD,7E,00,CD, 16,98 
530 DATA FD, 74,00,FD,23,0C,FD,75,00 
531 DATA FD,23,DD,23,0C,E1,1B,C9,F5 
532 DATA CD,25,98,6F,F1,1F,1F,1F,1F 
533 DATA CD,25,98,67,C9,E6,0F,FE,O0A 
534 DATA 38,03,C6,37,C9,C6,30,C9,06 
535 DATA 16,21,4C,98,CD,80,98,C9,06 
536 DATA OF,21,71,98,CD,80,98,C9,06 
537 DATA OF,21,62,98,CD,80,98,C9,75 
538 DATA 6E,67,75,65,6C,74,69,67,65 
539 DATA 73,20,41,72,67,75,6D,65,6E 
540 DATA 74,0D,0A,53,70,65,69,63,68 
541 DATA 65,72,20,76,6F,6C,6C,0D,0A 
542 DATA 4F,70,65,72,61,6E,64,20,66 
543 DATA 65,68,6C,74,0D,0A,7E,CD,5A 
544 DATA BB,23,10,F9,C9 
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TEXT- 
VERARBEITUNG 


Dieses Programm dient zum Eingeben, Ändern, 
Speichern und Ausdrucken von Texten bis zu ei- 
ner Länge von 200 Zeilen. Pro Zeile sind bis zu 80 
Zeichen erlaubt, so daß eine Kapazität von 16000 
Zeichen besteht, welche in ASCIH-Code gespeichert 
werden. Angehängt wurde das Programm ‚Turbo- 
Screen‘ von Th. Gigge aus Heft 2/1986. 

Entwickelt wurde dieses Programm auf dem CPC 
6128, es läuft mit den folgenden Änderungen aber 
auch auf den anderen CPC’s: 

CPC 664: In der Zeile 6100 des Turbo-Screens ist 
das Zeichen 8B durch 8E zu ersetzen. 

CPC 464: Neueingabe des gesamten Turbo-Screens 
oder weglassen desselben. Außerdem müssen die 
Befehle CLEAR INPUT, CURSOR O und CUR- 
SOR 1 ersetzt werden, da sie im BASIC 1.0 nicht 
enthalten sind. Dieses Programm ist bis auf den 
Turbo-Screen und das Scrolling des Bildschirms 
ganz in Basic geschrieben. Vor dem ersten Start 
sollte es abgespeichert werden, da nach der Funk- 
tion ENDE ein Reset durchgeführt wird. Die Gar- 
bage-Collection wird durch die Verwendung des 
MID$ Kommandos auf ein Minimum reduziert und 
bleibt in der Regel sogar unbemerkt. 


ISHSCHES] 
>07 


Nach dem Start meldet sich zuerst das Copyright 

des Turbo-Screens, danach wird die Eingabe der 
Uhrzeit verlangt. 
Ist dies geschehen, so gelangt man ins Hauptmenü 
und es stehen folgende 6 Funktionen zur Verfü- 
gung: Textmodus, Laden, Speichern, Drucken, Dis- 
kette und Löschen /Ende. 

1. Textmodus: Eingeben und Ändern von Texten. 
In der obersten Zeile werden die Steuerfunktionen 
angezeigt, darunter die Zeile, Spalte, letzte Zeile 
und die Uhrzeit. Beschreibung der einzelnen Steu- 
erfunktionen: 

Pfeiltasten = Cursor frei bewegen 

Shift Cursor hoch = Text anzeigen ab Textanfang 
Shift Cursor runter = Text abwärts anzeigen bis 
Neue Seite oder Textende 

Bitte lesen Sie weiter auf Seite 62 
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10 ?ERERERERIKKERIIEKIKERRIKIIII III 
11 ’* 


x 
x 
x 
14 ’%* Heinrich Moeller x 
15 ’x x 
16 ’* fuer Schneider aktiv x 
17 ’x x 
18 ’* CPC 464/664/6128 x 
x 
x 
x 
x 


22 ?RRRKEKKEKKKKKEKKKKKKEKKKKKKKKKK IKK 
25 ’ 

30 ON ERROR GOTO 5150 

40 GOSUB 400:GOSUB 6000 

50 OPENOUT "d" :MEMORY HIMEM-1:CLOSEOUT 
60 GOSUB 320 

70 DEFINT a-z:GOSUB 210 

80 DIM inhalt$(200) ,‚dr(19) ,1leer(80) 

90 FOR i=0 TO 200: inhalt$(i)=SPACE$ (80): 
NEXT . 

100 rand=10:tb=10:breit=65:zed=0 

110 nseite$=CHR$ (247) +"-NS-"+CHR$ (246) 
120 dr(1)=1:Ar(5)=1:dr(10)=1:dr(15)=1 
130 INK 0,0:INK 1,26 

140 MODE 2:PEN 1:PAPER O 

150 GOTO 1010 

200 ’-----Uhr 

210 CLS:PRINT"Uhrzeit eingeben!" 

220 PRINT: INPUT"Stunden" ;h1 : INPUT'"Minute 
n";mi : INPUT"Sekunden" ;si 

230 uhr1=TIME/300 

240 RETURN 


260 PRINT£2,TAB( (80-LEN(ue$))/2)ue$:RETU 
RN 

270 ’-----Fenster 

280 WINDOW 1,80,3,25:CLS:BORDER 9 

290 WINDOWS1,1,80,2,2:PAPER£1,1:PEN£1,0: 
CLS£1 

300 WINDOW£2,1,80,1,1:PEN£2,0:PAPER£2,1: 
CLS£2 

310 RETURN 

320 ’--—---Scrolling 

330 RESTORE 380 

340 FOR x=1 TO 30:READ byte:POKE 35000+x 
‚byte :NEXT 

350 MEMORY 35000 :RETURN 

360 REM 35001=hoch 

370 REM 35016=rwunter 

380 DATA 6,1,&3e,0,&21,3,0,&11,24,79,&cd 
‚&50,&bc,&c9,0 

390 DATA 6,0,&3e,0,&21,3,0,&11,24,79,&cd 
‚&50,&bc,&c9,0 

400 °’-----Umlaute 

410 SYMBOL AFTER 91 

420 SYMBOL 91,219,60,102,102,126,102,102 
:REM Ae 
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430 SYMBOL 92,214,108,198,198,198,108,56 
‚0O:REM Oe 

440 SYMBOL 93,195,102,102,102,102,102,60 
‚O:REM Ue 

450 SYMBOL 123,198,0,120,12,124,204,118, 
O:REM ae 

460 SYMBOL 124,102,0,60,102,102,102,60,0 
:REM oe 

470 SYMBOL 125,102,0,102,102,102,102,62, 
0:REM ue 

480 SYMBOL 126,28,35,99,108,99,99,102,96 
:REM sz 


$(x)"-"m$(x)" ur <NEXT 

550 a$=INKEY$:IF a$="" THEN 550 

560 x=ASC(a$)-48:IF x>0 AND x<=me THEN 5 
80 


1030 GOSUB 270 

1040 LOCATE 30,8:PRINT'Hauptmen} 
":LOCATE 30,10:PRINT STRING$(17,"=") 
1050 ve$=" TEXTVERARBEITUN 
G"+SPACE$ (7)+"Version 5.0"+SPACE$ (12) +" 
(c)1986 H. M!ller" 

1060 i=REMAIN(0) :DI:ON ERROR GOTO 5150:G 
OSUB 250 

1070 RESTORE 5200:G0SUB 500 

1080 ON x GOTO 2010,3670,3510,4000,5000, 
5070 

1090 GOTO 1070 


2040 WINDOW£S3,10,14,2,2:PAPER£3,0:PEN£3, 
1:CLS£3 

2050 WINDOW£A4,26,29,2,2:PAPER£4,0:PEN£A, 
1:CLS£4 

2060 WINDOW£5,53,57,2,2:PAPER£5,0:PENS5, 
1:CLS£5 

2070 LOCATE£1,1,1:PRINT£1,CHR$(220)" Zei 
le: "TAB(18) "Spalte: "TAB(40)CHR$ (221) TAB( 
43) "Textende:"TAB(59)'"<200>"TAB(65)CHR$ ( 
221)TAB(80)CHR$ (221); 

2080 ’ 

2090 EI:GOSUB 3040:EVERY 50 GOSUB 3040 
2100 CLS:seite=1:spalte=0 :PRINT 

2110 FOR zeile=1 TO 22:PRINT inhalt$(zei 
le) ; :NEXT 

2120 zeile=1:PRINT CHR$(7); 

2130 CLS£2 
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2140 PRINT£2,"RETURN ENTER CLR COPY DEL 
TAB";TAB(37)"T EX T 5.0"TAB(60)"CTRL: 
A-E-K-L-S-Z-TAB" ; 

2170 GOSUB 2500 


2220 spalte=spalte+1:IF spalte>65 THEN S 

OUND 1,80,3 

2230 IF spalte>80 THEN spalte=1:IF zeile 

<200 THEN zeile=zeile+t1:IF zei>22 THENG 

OSUB 2720 

2240 zei=zeile-(seite-2) 

2250 CLEAR INPUT:LOCATE spalte, zei :CURSO 

Ri 

2260 a$=INKEY$:IF a$="" THEN 2260 

2270 IF ASC(a$)>31 AND ASC(a$)<127 THEN 

GOSUB 2480:GOTO 2220 

2280 IF NOT INKEY(1) THEN curs=1:IF spal 

te‘80 THEN spalte=spalte+1:GOTO 2250 ELS 

E GOSUB 2630:G0TO 2240 

2290 IF NOT INKEY(8) THEN curs=-1:IF spa 

lte>1 THEN spalte=spalte-1:G0OTO 2250 ELS 

E GOSUB 2630:G0TO 2240 

2300 CURSOR 0:IF INKEY(0O)=0 AND zeile>1 

THEN zeile=zeile-1:IF zei>2 THEN 2240 EL 

SE GOSUB 2730:G0OTO 2240 

2310 IF INKEY(2)=0 AND zeile<200 THEN ze 
ile=zeile+t1:IF zei<23 THEN 2240 ELSE GOS 

UB 2720:G0TO 2240 

2320 IF INKEY(0)=32 THEN 2100 

2330 IF INKEY(2)=32 THEN GOSUB 2560 :GOTO 
2240 

2340 IF NOT INKEY(79) AND spalte>1 THEN 

spalte=spalte-1:a$=" ":GOSUB 2480:G0T0 2 

250:’del 

2350 IF NOT INKEY(9) THEN b$=" ":c$="":s 

p2=81:G0SUB 2680:G0TO 2240’copy 

2360 IF NOT INKEY(16) THEN b$="":c$=" ": 

sp2=80 :GOSUB 2680:G0TO 2240’c1lr 

2370 IF NOT INKEY(18) THEN GOSUB 2520:G0 

TO 2240’return 

2380 IF NOT INKEY(6) THEN a$=CHR$(247):G 

OSUB 2480:G0OSUB 2520:G0TO 2240’enter 

2390 IF INKEY(71)=128 THEN zed=zeile:G0S 

UB 2500’z 

2400 IF INKEY(69)=128 THEN 1050’a 

2410 IF INKEY(60)=128 THEN MID$(inhalt$( 

zeile) ,1,80)=nseite$+SPACE$ (74) :LOCATE 1 
‚zei:PRINT inhalt$(zeile) ;:GOSUB 2520’s 

2420 IF INKEY(68)=0 THEN spalte=tb’tab 
2430 IF INKEY(68)=128 THEN tb=spalte 
2440 IF INKEY(58)=128 THEN GOSUB 2750’e 
2450 IF INKEY(36)=128 THEN GOSUB 2810’1 

2460 IF INKEY(37)=128 THEN GOSUB 2940:G0 

TO 2090’k 

2470 GOTO 2240 

2480 MID$(inhalt$(zeile) ‚spalte,1)=a$:IF 
zeile>zed THEN zed=zeile:GOSUB 2500 

2490 LOCATE spalte,zei:PRINT a$; :RETURN 
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2500 PRINTS5, zed; :RETURN 

2510 ’---—Return 

2520 spalte=1 

2530 IF zeile<200 THEN zeile=zeile+t1:IF 
zei>22 THEN GOSUB 2720 

2540 RETURN 

2550 ’ Anzeigen 

2560 x=zeile:x1=0:IF zeile>zed THEN RETU 

RN 

2570 FOR zeile=x TO zed 

2580 IF zei>23 THEN GOSUB 2720 ELSE LOCA 
TE 1,zei:PRINT inhalt$(zeile) ;:zei=zei+1 
2585 IF MID$(inhalt$(zeile),1,6)=nseite$ 
THEN x1=zeile:zeile=zed 

2590 NEXT 

2600 PRINT CHR$(7);:IF x1>0 THEN zeile=x 
1 ELSE zeile=zed 

2610 RETURN 

2620 ’-----Cursor seitwaerts 

2630 spalte=spaltetcurs 

2640 IF spalte<1 THEN spalte=80:IF zeile 
>1 THEN zeile=zeile-1:IF zei<3 THEN GOSU 

B 2730 :RETURN 

2650 IF spalte>80 THEN spalte=1:IF zeile 
<200 THEN zeile=zeile+t1:IF zei?>22 THEN G 

OSUB 2720 :RETURN 

2660 GOTO 2240 

2670 ’-- Zeichen einfuegen oder loesc 

hen 

2680 MID$(inhalt$(zeile) ‚spalte,80)=b$+R 
IGHT$(inhalt$(zeile) ‚sp2-spalte)+c$ 

2690 LOCATE 1,zei:PRINT inhalt$(zeile); 
2700 RETURN 


2720 CALL 35001:seite=seite+1:LOCATE 1,2 
3:PRINT inhalt$(zeile) ; :RETURN 

2730 zei=zeile-(seite-2):IF zei(2 THEN C 

ALL 35016:seite=seite-1:LOCATE 1,2:PRINT 
inhalt$(zeile) ; :RETURN 

2740 ’ Zeile einfuegen 

2750 ze=zeile:IF zeile>zed THEN 2930 
2760 IF zed>199 THEN zed=200 ELSE zed=ze 

d+1 

2770 FOR i=zed TO ze STEP -1 

2780 MID$(inhalt$(i),1)=inhalt$(i-1) 
2790 NEXT 

2800 IF ze<200 THEN 2880 ELSE GOTO 2890 
2810 ’ Zeile loeschen 

2820 IF zeile>zed THEN 2930 

2830 FOR i=zeile TO zed-1 

2840 MID$(inhalt$(i),1)=inhalt$(i+1) 

2850 NEXT 

2860 ze=zed:zed=zed-1 

2870 ’ 

2880 MID$(inhalt$(ze) ,1)=SPACE$ (80) 

2890 xend=23-zei:ze=zeile 

2900 FOR zeile=zeile TO zeiletxend:zei=z 

eile-(seite-2) :LOCATE 1,zei:PRINT inhalt 

$(zeile) ;:NEXT 
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2310 zeile=ze:PRINT CHR$(7); 

2320 GOSUB 2500 

24330 RETURN 

2940 ?’ ijeren 

2950 CLS£2:INPUT£2,"Kopieren: ab Zeile, 
bis Zeile, nach Zeile" ;z1,22,23 

2960 IF (z1 OR z2 OR z3)>200 THEN 2950 
2970 IF z2<z1 OR z2-z1+z3>200 THEN 2950 
2980 FOR i=z1 TO z2:1i2=23+i-z1 

2990 MID$(inhalt$(i2),1)=inhalt$(i) 
3000 NEXT 

3010 IF i2>zed THEN zed=i2 


3040 sek2=TIME/300-uhri+s1 :mn=sek2\60+m1 
3050 sek=sek2 MOD 60:std=mn\60+h1:IF mn? 
59 THEN mn=mn MOD 60 

3060 PRINT£3, zeile; :PRINT£A,spalte; :LOCA 
TE£1,70,1:PRINT£1,USING"S£:££:££" ;std;n 
‚sek 

3070 RETURN 

3500 ’ E 

3510 we$="TEXT abspeichern: "+name$ 


3530 CLOSEOUT :GOSUB 250 

3540 IF name$="" THEN 3570 

3550 RESTORE 5210:GOSUB 500 

3560 ON x GOTO 1000,3580, 3570 

3570 CLSZ1 : INPUTS1, "Textname" ;name$:IF n 
ame$="" THEN 1000 ELSE GOTO 3510 

3580 CLS£1:PRINT£1,"Bitte warten! "; 
3590 OPENOUT name$ 

3600 FOR ze=1 TO zed 

3610 GOSUB 4920: PRINT£9,MID$(inhalt$(ze 
),1,x) 

3620 NEXT 

3630 CLOSEOUT 

3640 PRINT£1,"Der Text ist gespeichert!" 
3650 FOR x=1 TO 1000:NEXT 


3690 GOSUB 250:CLS 

3700 CLS&1:INPUTS1, "Textname ";name$:PRI 
NT£2,ue$": ";name$ 

3710 IF name$="" THEN 1010 

3720 RESTORE 5220:G0SUB 500:IF x=1 THEN 
1010 

3730 dat=0:CLs£1 

3740 IF x=3 THEN INPUT£1,"Laden ab Zeile 
"dat 

3750 IF x=4 THEN INPUT£1,"Einf}gen ab de 
r Textzeile" ;ze:GOSUB 3880:GOTO 3800 
3760 FOR i=1 TO 200: inhalt$(1i)=SPACE$ (80 
):NEXT 

3770 GOSUB 3880 

3780 FOR ze=2 TO dat:IF NOT EOF THEN LIN 
E INPUT£9, i$ 

3790 NEXT: ze=1 
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3800 WHILE NOT EOF AND ze<201 

3810 LINE INPUT£9,i$ 

3820 MID$(inhalt$(ze) ,1)=i$ 

3830 ze=ze+1 

3840 WEND 

3850 IF x<>4 OR zed‘ze THEN zed=ze-1 
3860 CLOSEIN 

3870 GOTO 1010 

3880 CLOSEIN:OPENIN name$ :RETURN 
4000 ue$=:"Text drucken" 


4020 GOSUB 250 

4030 WINDOW 1,80,4,25:CLS 

4040 ’ 

4050 RESTORE 4610:LOCATE 1,1 

4060 FOR i=1 TO 19:READ a$ 

4070 IF dr(i)=1 THEN dr$=STRING$(5,143)+ 

CHR$ (246) ELSE dr$=SPACE$ (6) 

4080 IF a$<>"" THEN PRINT USING" S£:";i 
;:PRINT TAB(10)dr$TAB(25)a$ ELSE PRINT 
4090 NEXT 

4100 LOCATE 40,5:PRINT" (Zeichendichte)": 

LOCATE 40, 10:PRINT" (Zeilenabstand)" 

4110 LOCATE 50,7:PRINT"7. und 8. nicht z 

usammen mit 1." 

4120 LOCATE 16,13:PRINT ab" /72" . 
4130 LOCATE 9,18:PRINT rand". Stelle " 
4140 LOCATE 9,19:PRINT breit" Zeichen " 
4150 RESTORE 5250:G0SUB 500 

4160 ON x GOTO 4630,4180,4300,4340 

4170 

4180 CLS£1:INPUT£1,"Einschalten Nummer" ; 

a 

4190 IF a<1 OR a>19 THEN 4150 

4200 IF a=19 THEN INPUT£1,"Zeilenbreite 
f}r Blocksatz" ;breit:IF breit>80 OR brei 
t<1 THEN breit=65 

4210 IF a=18 THEN INPUTS1,"Linker Rand"; 

rand:IF rand>80 OR rand<1 THEN rand=1 
4220 IF a>17 THEN 4130 

4230 IF a>14 AND a<17 THEN i1=15:12=16:G 

OSUB 4600 

4240 IF a<14 AND a>9 THEN i1=10:12=13:G0 

SUB 4600 

4250 IF a=13 THEN INPUTS1,"Zeilenabstand 
"sab:IF ab<0O THEN 4250 

4260 IF a<9 AND a>4 THEN i1=5:12=8:GOSUB 
4600 

4270 IF a<4 THEN il=1:12=3:G0OSUB 4600 
4280 GOTO 4050 

4290 ’---—- Bildschirm 

4300 ag=0:CLS:CLS£1:GOSUB 4530 
4310 PRINT£1,CHR$(7)"TEXTENDE! 

ruecken>"CHR$ (24) :CALL &BBO6 

4320 GOTO 4630 

4330 ’-----Drucker 

4340 ag=8:RESTORE 4620 

4350 i=1:dr(4)=0 

4360 WHILE i<9:READ a,b,c,d 


«Taste d 
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4370 IF -i<4 AND dr(i)=1 THEN dr1$=CHR$ (a 
)+CHR$ (b) +CHR$ (c) 

4380 IF ıi>4 AND dr(i)=1 THEN dr2$=CHR$ (a 
)+CHR$ (b) +CHR$ (c) +CHR$ (d) 

4390 i=i+t1:IF i=4 THEN i=i+l 

4400 WEND 

4410 IF dr(13)=1 THEN 4440 

4420 FOR i=10 TO 12:IF dr(i)=1 THEN ab=( 
i-10)*6+12 

4430 NEXT 

4440 ’ 

4450 PRINT£8,CHR$ (27)"I"CHR$(1) ;CHR$(27) 
"C"CHR$ (0) ;CHR$(12); 

4460 PRINT£8,dr1$;dr2$;CHR$ (27) ;"A" ;CHR$ 
(ab) ;CHR$(27);"2" 

4470 GOSUB 4530 

4480 PRINT£8,CHR$ (27) ;"A";CHR$(12) ;CHR$( 
27),:"2": 

4490 PRINT£8,CHR$ (27) ;"W" ;CHR$(0); 

4500 PRINT£8,CHR$ (18) ;CHR$ (27) ;"'H" ;CHR$ ( 
12) 

4510 GOTO 4630 

4520 ’--——— Ausgabe 

4530 FOR ze=1 TO zed 

4540 IF MID$(inhalt$(ze),1,6)=nseite$ T 
HEN PRINT£ag ,CHR$ (12) :GOTO 4580 


4550 GOSUB 4920:IF dr(16)=1 THEN GOSUB °- 


4720:aus=0 ELSE aus=ze 

4560 IF fl=1 THEN x=x-1 

4570 PRINT£ag,TAB(rand)MID$(inhalt$ (aus 
),1,x); 

4580 NEXT 

4590 RETURN 

4600 FOR i=il TO i2:dr(i)=0:NEXT:dr(a)=1 
:RETURN 

4610 DATA Briefdruck ‚Norsaldruck ‚Fettdru 
ck,,Normal (80),Breit (40),Eng (132) ‚Eng 
breit (66), ‚Einfach (12),Anderthalb (18) 
‚Zweifach (24),?/72, ‚Flattersatz ,Blocksa 
tz, ‚Linker Rand,Zeilenbreite (f. Blocksa 
tz) 

4620 DATA 27,73,3,,27,73,1,,27, loss» 
27,87,1,,15,,,,15,27,87,1 

4630 GOTO 1010 

4640 ’ 

4700 REM Blocksatz 

4710 ’— 

4720 MID$(inhalt$(0),1)=inhalt$(ze) 

4730 FOR i=1 TO 80:leer(i)=0:NEXT 

4740 br=breit-x:a=1:al=2 

4750 IF x>breit THEN 4870 

4760 IF fl=1 THEN x=x-1:fl=0:G0TO 4880 
4770 il=0 

4780 WHILE a>0 AND ax 

4790 a=INSTR(a,inhalt$(0)," "):IF a<>0 A 
ND a<x THEN leer(il)=a:il=il+1:a=at1 
4800 WEND 

4810 IF il>0 THEN il=il-1 

4820 FOR i=1 TO breit-x 
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4830 al=zilXRND:a=leer(al):IF a>80 THEN A 
850 

4840 MID$(inhalt$(0),1)=LEFT$(inhalt$(0) 
‚a)+" "+RIGHT$(inhalt$(0) ,80-a) 

4850 FOR i2=al TO il:leer(i2)=leer(i2)+1 
:NEXT 

4860 NEXT 

4870 x=breit 

4880 RETURN 

4900 REM Leerzeichen entfernen 


4920 a=INSTR(inhalt$(ze) ‚CHR$(247)):IF a 
<>0 THEN x=a:fl=1:GOTO 4970 ELSE f1=0 
4930 y=-1:x=81 

4940 WHILE y>0 AND x>10:x=x-10:y=INSTR(M 
ID$(inhalt$(ze) ‚x, 10) ,SPACE$(10)) :WEND 
4950 y=-1:x=x+10 

4960 WHILE y>0 AND x>1:x=x-1:y=INSTR(MID 
$(inhalt$(ze),x,1)," "):WEND 

4970 RETURN 

5000 ue$="Diskettenoperationen" 

5010 ’===2=2=2=2=2=2=2=2=2======2======= 

5020 GOSUB 250:CLS 

5030 RESTORE 5230 :GOSUB 500 

5040 ON x GOTO 1010,5060,5050 

5050 CLS£1: INPUT£1, "Textname" ;a$: !ERA,a$ 
5060 CLS:CAT:GOTO 5030 

5070 ue$="Programmende" 


5090 GOSUB 250 

5100 RESTORE 5240:G0SUB 500:CLS£1 

5110 ON x GOTO 1000,5120,5130 

5120 INPUT£1,"Text l}schen (j=ja)";a$:IF 
a$="j" THEN ERASE inhalt$,dr, leer:GOTO 

80 ELSE GOTO 5090 

5130 INPUT£1,"Programm beenden (Reset!) 

(3j=ja)";a$:IF a$="j" THEN CALL 0 

5140 GOTO 5100 

5150 REM Fehler 


5170 IF ERL<500 THEN RESUME 60 

5180 PRINT£1, CHR$(7);" Fehler";ERR;"! < 
Taste druecken>":CALL &BBO6 

5190 RESUME 1000 

5200 DATA 6, Textmodus , Laden, Speichern, Dr 
ucken,Diskette,Li chen/Ende 

5210 DATA 3,Hauptmen} ‚Speichern, Name {nd 
em 

5220 DATA 4,Hauptmen} ‚Laden,ab Zeile ?,E 
inf}gen 

5230 DATA 3,Hauptmen} ‚Direktory, FILE loe 
schen 

5240 DATA 3,Hauptmen} ‚Text loeschen, Ende 
5250 DATA 4,Hauptmen} , [ndern, Bildschirm, 
Drucker 

6000 ?’ 

6010 REM turbo-screen schneider-aktiv 2/ 
86 

6020 °’ 
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6030 ad=&BE80 :sz=19:RESTORE 6100 

6040 ON ERROR GOTO 6080 

6050 FOR i=zad TO ad+sz:READ a$:a=VAL("&" 
+a$) :POKE i,a:su=suta:NEXT 

6060 ad=ad+sz+1:GOTO 6050 


6070 CALL &BE80 :RETURN 


6080 IF ERR=4 THEN RESUME 6070 


6090 ON ERROR GOTO 0 


6100 DATA 21,92,be,22,d4,bd,3e,02,cd,Oe, 
bc,21,b4,be,d7,8b,c3,c9,e5,cd 
6110 DATA d4,12,3a,c3,b7,fe,02,c2,4f,13, 
eb,el,cd,6a,0b,3a,30,b7,4f,06 
6120 DATA 08,1a,a9,13,77,7c,ce,08,67,10, 
f6,c9,2a,20,54,55,52,42,4f,2d 
6130 DATA 53,43,52,45,45,4e,20,36,36,34, 
2f,36,31,32,38,20,56,31,2e,30 
6140 DATA 20,2a,20,20,66,75,65,72,20,4d, 
4f,44,45,20,32,20,2f,28,43,29 
6150 DATA 20,31,39,38,35,20,62,79,20,54, 
68,2e,20,47,69,67,67,65,07,0a 


6160 DATA 03,00 
6170 END 


Fortsetzung von Seite 57 


Return = Neue Zeile, Spalte 1 
(nur für den Blocksatz wichtig) Pfeil an 


Enter = 


Zeilenende, damit diese Zeile nicht auseinander- 


gezogen wird. 


CLR = Zeichen an Cursorposition löschen und 


Text nach links schieben 
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COPY = Zeichen einfügen (Text nach rechts schie- 
ben) 

DEL = Zeichen links vom Cursor löschen 

TAB = Sprung an Tabulatorstelle 


CONTROL+ 

A = Hauptmenue 

E = Zeile an Cursorposition einfügen 

K = Eine oder mehrere Zeilen kopieren (3 Parame- 
ter eingeben 

L = Zeile an Cursorposition löschen 

S = Neue Seite (der Rest der Zeile darf nicht mehr 
beschrieben werden) 

Z = Textende (wird auch automatisch bei der Text- 
eingabe gesetzt) 

TAB = Tabulator einstellen. 

Verlassen wird der Textmodus mit CONTROL+ A, 
in der 2. Zeile erscheint dann das Hauptmenü. 

2. Laden: Laden eines bereits gespeicherten Tex- 
tes von Diskette, dabei Laden des gesamten Textes 
oder eines Teiles, oder Einfügen in den im Speicher 
befindlichen Text. 

3. Speichern: Abspeichern des Textes auf Dis- 
kette. Hierbei werden die Leerzeichen rechts ent- 
fernt, um Speicherplatz zu sparen. 

4. Drucken: Ändern der Druckparameter und 
Ausgabe auf Bildschirm oder Drucker. Die Steuer- 
zeichen sind auf den Drucker NLQ 401 von Schnei- 
der abgestimmt. Es können Schriftart, Zeichen- 
dichte, Zeilenabstand, Linker Rand und Flatter- 
satz oder Blocksatz gewählt werden. Der Blocksatz 
arbeitet zeilenorientiert. 

5. Diskette: Inhaltsverzeichnis und Löschen. 

6. Löschen/Ende: Löschen des Textes und Pro- 
grammende. 


Deutsche Umlaute: 

Ae = Eckige Klammer auf 

ae = Shift und eckige Klammer auf 
Oe = Schrägstrich links 

oe = Shift und Klammeraffe 

Ue = Eckige Klammer zu 

ue = Shift und eckige Klammer zu 
sz = Control und 2 


Liste der wichtigsten Variablen: 
inhalt $ ( ) = Textspeicher 
dr( ) = Druckparameter 
leer( ) = Verschiebung für den Blocksatz 
breit = Zeilenbreite für den Blocksatz 
names$ = Name des Textes 
rand = Linker Rand für den Ausdruck 
spalte = aktuelle Spalte im Textmodus 
seite = Anzahl der gescrollten Zeilen+1 
tb = Tabulatorstelle 
uhri = Eingestellte Uhrzeit 
zed = Textende (Letzte Zeile) 
zeile = aktuelle Zeile im Textmodus 
zei = Position der Zeile auf dem Bildschirm 
———ENDE-—— 

Die ‘=* Zeichen sollten beim Druck nach Möglich- 
keit in einer Reihe untereinanderstehen. 

(Heinrich Möller) 


LISTING 


Diese kleine Datei für Ihre Schallplatten oder Cas- 
setten hat eine besondere Fähigkeit: Auf dem DMP 
2000 können Sie Zettelchen ausdrucken, die (nach- 
dem Sie sie ausgeschnitten haben) genau in eine 
Cassettenhülle passen. Damit können Sie Ordnung 
in Ihr Archiv bringen. 

Bis zu 50 Platten mit je maximal 15 Titeln pro 
Seite können Sie in einer Datei speichern. Für die 
Neuaufnahme ist Punkt 1 im Menü vorgesehen. 

Punkt 2 dient dazu, eine Platte nach Interpret, 
Titel oder einem bestimmten Song zu suchen. 
Wenn sie gefunden ist, kann ein Cassettencover 
oder ein LP-Inhaltsverzeichnis gedruckt werden. 

Das Drucken des Kataloges kann in Form einer 
Liste geschehen, die Interpret, Titel und Spielzeit 
enthält. Sie können aber auch die gesamte Datei als 
Inhaltsverzeichnis oder Cassettencover ausgeben 
lassen. 


Natürlich ist auch dieses Programm menügesteu- 
ert. Wichtig ist hier, daß Sie auf jeder Diskette, die 
Sie verwalten wollen, mindestens 1K Speicherplatz 
freilassen. Mit Menüpunkt 1 verpassen Sie nämlich 
jeder Diskette einen Namen, der in der Datei 
NAME’INF gespeichert wird. Dazu kommt noch 
eine Abkürzung, welche allerdings nur auf der Ver- 
zeichnisdisk zu finden ist und den Filenamen dar- 
stellt, unter dem das Inhaltsverzeichnis der zu ver- 
waltenden Disk (i.F. als „‚Arbeitsdisk“ bezeichnet) 
gespeichert ist. 

Punkt 2 im Menü dient dazu, eine neue Disket- 
te aufzunehmen. Sie muß jedoch vorher mit einem 
Namen versehen worden sein. Die Namen der Files 
sowie deren Länge werden automatisch von der Ar- 
beitsdisk eingelesen. Anschließend können Sie bis 
zu jeweils zehn Textzeilen Kommentar eingeben. 

Bei der Aufnahme einer geänderten Diskette 


ORDNUNG MIT 
MUSIK! 


PLATTEN- & DISKETTEN 
DATEI 


Die Punkte 4 und 5 dienen dazu, eine Datei von 
Disk einzulesen bzw. zu speichern. Selbstverständ- 
lich können Sie auch das Cassettenlaufwerk dazu 
verwenden. 

Das Programm erklärt sich weitgehend von 
selbst. Zu erwähnen ist noch, daß ein Punkt zum 
Löschen und Ändern von Eintragungen nicht vor- 
gesehen wurde. Dadurch blieb das Listing recht 
kurz. Es dürfte erfahrenen Programmierern jedoch 
keine Schwierigkeiten bereiten, das Programm ge- 
gebenenfalls zu erweitern. 

Alwin Ertl 


%* 


Falls Sie sich an die Ausgabe 8/86 von „Schneider 
aktiv‘ erinnern: Dort wurde bereits ein Disk-Ar- 
chivprogramm vorgestellt. Aber kaum war die 
Nummer erschienen, gab es auch schon Anrufe 
beim Autor des Programms. Zumeist von Lesern, 
die Probleme bei der Eingabe oder Bedienung hat- 
ten — und bei dieser Gelegenheit einige Anregun- 
gen lieferten. Und da das Interesse an einem Disk- 
archiv offenbar nicht gering ist, folgt hier die Ver- 
sion 2.0. 

Eine Archivdiskette muß — ähnlich wie bei der 
ersten Fassung — durch folgende Befehle vorberei- 
tet werden: 

OPENOUT ”"NAMEN.DAT” 
PRINT #9, ”$$$” (2x eingeben) 
CLOSEOUT 
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(Punkt 3 — was denn sonst?) werden Ihnen zu- 
nächst auf Wunsch die gelöschten Files angezeigt. 
Anschließend erscheinen der Reihe nach alle Da- 
teinamen. Wurde das File bereits aufgenommen, er- 
scheint „bereits bekannt“ und das Programm geht 
weiter. Ist die Datei noch nicht bekannt, so können 
= wieder bis zu zehn Zeilen Erklärungen einge- 
en. 

Menüpunkt 4 gestattet es Ihnen, das Inhaltsver- 
zeichnis einer Diskette auf Bildschirm oder Druk- 
ker auszugeben. Die Bildschirmausgabe läuft je- 
doch ohne Stop durch, da sie lediglich für Kontroll- 
zwecke vorgesehen ist. 

Gelegentlich wird es natürlich vorkommen, daß 
Sie eine Diskette komplett löschen. Benutzen Sie 
Nummer 5 in der Auswahlliste, um sie aus dem In- 
haltsverzeichnis zu entfernen. 

Die Punkte 6 und 7 erklären sich bei der Bedie- 
nung von selbst. Damit können Sie eingegebene 
Kommentare nachträglich ändern bzw. ein Ver- 
zeichnis aller gespeicherten Disketten ausgeben. 

Da das Programm Sie jeweils darauf aufmerksam 
macht, wann Sie welche Diskette einlegen müssen, 
können Sie eigentlich nichts falsch machen. Falls 
Sie mit zwei Laufwerken arbeiten, legen Sie die Ar- 
beitsdiskette in Drive A und die Verzeichnisdisket- 
te in Drive B. Ändern Sie dazu folgende Zeilen: 
1080 :A:RETURN 
1100 :B:RETURN 


Alwin Ertl 2» 


LISTING 


10 /KRKKKKKKKKKKKKKKKIKKKI IKK IKK IKK INK 
11 ’x x 
12 ’%* PLATTENDATEI x 
13 ’x x 
14 ’% Alwin Ertl x 
15 ’x x 
16 ’%* fuer Schneider aktiv x 
17 ’x * 
18 ’* CPC 464/664/6128 * 
x 
x 
x 
x 


22 "KKRKKEKKKKKKKKKKKKKKKKKKKKKKKKKK KK X 


180 OPENOUT" dummy" :MEMORY HIMEM-1:CLOSEO 
UT:DIM p$(50,33) 

190 INK 0,0:PAPER 0:INK 1,15:PEN 1:BORDE 
R 0:MDE 2:ges=0 

200 ’Hauptauswahl 

210 CLS:PRINT CHR$(24);"Plattendatei V 
1.0" ;CHR$ (24) :PRINT:PRINT"Kapazitaet: 50 
Stueck; gespeichert:" ;ges;"Stueck" :PRIN 
T: PRINT: PRINT: f=FRE("") i : 
220 PRINT"1 > Platte eingeben" :PRINT:PRI 
NT"2 > Platte suchen" :PRINT:PRINT"3 > Ka 
talog drucken" :PRINT:PRINT"4 > Datei ein 
lesen" :PRINT:PRINT"5 > Datei speichern": 
PRINT:PRINT"6 > Ende" 

230 PRINT: PRINT: PRINT: INPUT"Bitte waehle 
n: ",wahl:ON wahl GOTO 240,320,480,570,6 
20,670 

240 ’Eingeben 

250 CLS:IF ges=50 THEN PRINT"Keine Einga 
be mehr moeglich!":PRINT"Taste --> Haupt 
auswahl" :WHILE INKEY$="":WEND:GOTO 200 
260 PRINT CHR$(24);"Platte aufnehmen" ;CH 
R$ (24) :ges=ges+1: PRINT 

270 LINE INPUT"Interpret: ",‚p$(ges,1):LI 
NE INPUT"Titel: ",‚p$(ges,2):LINE INPUT"S 
pieldauer: ",‚p$(ges,3) 

280 FOR i=1 TO 30:IF i<16 THEN PRINT"Sei 
te 1, Titel";i; ELSE PRINT"Seite 2, Tite 
1";i-15; 

290 LINE INPUT": ",p$(ges,i+t3):NEXT i:PR 
INT 

300 INPUT"Alles korrekt"; jn$:IF UPPER$(L 
EFT$(jn$,1))="N" THEN ges=ges-1:GOTO 250 
310 INPUT'"Weitere Eingaben" ; jn$:IF UPPER 
$(LEFT$(jn$,1))="J" THEN 250 ELSE 200 
320 ’Suchen 

330 CLS:PRINT CHR$ (24) ;"Platte suchen" ;C 

HR$ (24) : PRINT: PRINT 

340 PRINT"1 > Nach Interpret" :PRINT:PRIN 

T"2 > Nach Titel" :PRINT:PRINT"3 > Nach b 
estimmtem Song" :PRINT: PRINT: INPUT"Bitte 

waehlen: ",wahl : PRINT: PRINT:PRINT 

350 IF wahl=1 THEN LINE INPUT"Interpret: 


",s$ ELSE IF wahl=2 THEN LINE INPUT"Tit 
el: ",s$ ELSE LINE INPUT"Song: ",s$ 
360 CLS:FOR i=1 TO ges:gef=0:0N wahl GOT 
Oo 370,380 ,390 
370 IF p$(i,1)=s$ THEN gef=-1:G0TO 410 E 
LSE 410 

380 IF p$(i,2)=s$ THEN gef=-1:G0T0 410 E 
LSE 410 

390 FOR j=3 TO 33:IF p$(i,Jj)=s$ THEN gef 


400 NEXT j 

410 IF NOT gef THEN 470 

420 CLS:PRINT p$(i,1):PRINT p$(i,2):PRIN 
T p$(i,3)::PRINT CHR$(24) ;"A" ;CHR$(24) ;TA 
B(40) ;CHR$ (24) ;"B";CHR$(24) 

430 FOR j=1 TO 15:PRINT LEFT$(p$(i,3+j), 
38) ;TAB(40) ;LEFT$(p$(i,18+j),39) :NEXT 5: 
PRINT: PRINT:PRINT CHR$(24);"K > Kassette 
ncover drucken L > LP-Zettel drucken 
W > Weiter" ;CHR$(24) 

440 t$="":WHILE t$="" OR INSTR("KLW",t$) 
=0:t$=UPPER$ ( INKEY$) :WEND:ON INSTR('"KLW" 
‚t$) GOTO 450,460,470 

450 pp=i:GOSUB 720:G0TO 440 

460 pp=i:GOSUB 840:GOTO 440 

470 NEXT i:GOTO 200 

480 ’Katalog 

490 CLS:PRINT CHR$ (24) ;'"Katalog" ;CHR$ (24 
) :PRINT: PRINT 

500 PRINT"1 > Uebersicht" :PRINT:PRINT"2 
> Kassettencover" :PRINT:PRINT"3 > LP-Zet 
tel" :PRINT: PRINT: INPUT"Bitte waehlen: ", 
wahl :alph$=CHR$ (255):IF wahl=1 THEN PRIN 
T£8,CHR$(27);"x";CHR$(1) 

510 FOR i=1 TO ges:m=1:WHILE INSTR(alph$ 
‚CHR$ (m) ) :m=m+1:WEND:FOR j=1 TO ges:IF p 
$(53,1)<p$(m,1) AND INSTR(alph$,CHR$(5))= 
0 THEN m=)j 

520 NEXT j:alph$=alph$+CHR$ (m) :ON wahl G 
OTO 530,540,550 

530 d$=SPACE$ (80) :MID$(d$,1)=p$(m,1):MID 
$(d$,40)=", "+SPACE$ (40) :MID$(d$,41)=p$ (m 
‚2) :MID$(d$, 70)="}"+SPACE$ (10) :MID$ (d$,7 
1)=p$(m,3) :PRINT£8,d$:GOTO 560 

540 pp=m:GOSUB 720:GOTO 560 

550 pp=m:GOSUB 840 

560 NEXT i:GOTO 200 

570 ’Einlesen 

580 CLS:PRINT CHR$(24);"Datei einlesen"; 
CHR$ (24) :PRINT: PRINT 

590 INPUT"Dateiname" ;dat$ :dat$=UPPER$ (da 
t$) :OPENIN dat$ 

600 INPUT£9,ges:FOR i=1 TO ges:FOR j=1 T 
O 33:LINE INPUT£9,p$(i,Jj):NEXT j,i 

610 CLOSEIN:GOTO 200 

620 ’Speichern 

630 CLS:PRINT CHR$(24) ;"Datei speichern" 
;CHR$ (24) : PRINT: PRINT 

640 INPUT"Dateiname" ;dat$:dat$=UPPER$ (da 
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t$) :OPENOUT dat$ 

650 PRINT£9,ges:FOR i=1 TO ges:FOR j=1 T 
Oo 33:PRINT£I9,p$(i,j):NEXT j,i 

660 CLOSEOUT:GOTO 200 

670 
680 CLS:END 
690 ’ 

700 
710 °’ 

1720 ’Cassettencover drucken 

730 PRINT£8,CHR$ (27) ;"x'" ;CHR$(0) ;CHR$(15 
) ;CHR$ (27) ; "A" ;CHR$(8) ;"+" ;STRING$ (34, "- 
")5"+"5:STRING$ (34 ,"-") ;"+" 

740 FOR ii=1 TO 15:p1$=LEFT$(p$(pp,3+ii) 
‚34) :p2$=LEFT$(p$ (pp, 18+ii),34):WHILE LE 
N(p1$)<34:p1$=p1$+" ":WEND:WHILE LEN(p2$ 
)<34:p2$=p2$+" ":WEND:PRINT£8,"}";p1$;"; 
";p2$;"!":NEXT ii 

750 FOR ii=1 TO 8:PRINT£8,"}" ;SPACE$ (34) 
"41" SPACE$ (34) ;"}":NEXT ii 

760 PRINT£8,"+";STRING$(34,"-") ;'"+";STRI 
NG$ (34 ,"-");'"+" 

770 PRINTS8,"}" ;CHR$(27) ;"4" ; :d$=LEFT$(p 
$(pp,1),69):WHILE LEN(d$)<69:d$=d$+" ":W 
END: PRINT£8 ‚d$ ;CHR$ (27) ;"5";" 1" 

780 PRINT£8,'"}";CHR$ (27) ;"4";CHR$(27);"G 
";:d$=LEFT$ (p$ (pp, 2) ,69) :WHILE LEN(d$)<6 
9:d$=d$+" ":WEND: PRINT£8 ‚d$ ;CHR$ (27) ;"5" 
;:CHR$ (27) ;'"H";"" 

790 PRINT£B," " ;CHR$ (27) ;"G" ; :d$=LEFT$(p 
$(pp,3) ,69) :WHILE LEN(d$)<69:d$=d$+" ":W 
END: PRINT£8 ‚d$ ;CHR$ (27) ;"H";" 1" 

800 PRINT£B, "+" ;STRING$(34,"-") ;"+";STRI 
NG$ (34, ,"-") ;"+" 

810 FOR ii=1 TO 7:PRINT£8,"!";SPACE$ (69) 
;"H" NEXT ii 

820 PRINT£8, "+" ;STRING$ (34 ,"-");"+";STRI 
NG$ (34 ,"-") ;"+" 

830 PRINT£8 ,CHR$ (27) ;'@" :PRINT£8 : PRINT£8 
:RETURN 

840 ’Plattenzettel drucken 

850 PRINT£8,CHR$ (27) ;"x" ;CHR$(0) ;STRING$ 
(80,"-") 

860 PRINT£8,CHR$ (27) ;"G";p$(pp,1) ;CHR$(2 
7);"H" 

870 PRINT£8,CHR$ (27) ;"G" ;CHR$ (27) ;"4";p$ 
(pp, 2) ;CHR$ (27) ;"H" ;CHR$ (27) ;"5" 

880 PRINT£8,CHR$(27);"E";"Seite 1" ;SPACE 
$(33);"Seite 2" ;CHR$(27) ;"F" ;CHR$(27);"x 
";CHR$(1) 

890 FOR ii=1 TO 15:p1$=LEFT$(p$(pp,3+ii) 
‚38) :p2$-LEFT$(p$(pp, 18+ii),38):WHILE LE 
N(p1$)<38:p1$=p1$+" ":WEND:WHILE LEN(p2$ 
)<38:p2$=p2$+" ":WEND:PRINT£S8,pl$;" ";p 
2$:NEXT ii 

900 PRINT£8,CHR$ (27) ;"x" ;CHR$ (0) ;STRING$ 
(80,"-") 

910 PRINT£8,CHR$ (27) ;'"@" :PRINT£8:PRINT£8 
. "RETURN 
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10 ?EERKRKEKKKKKKKKKIK III IKK KEN IK X 
11 ’x * 
12 ’%* DISKETTENVERZEICHNIS V 2.0 x 
13 ’x x 
14 ’* Alwin Ertl x 
15 ’x x 
16 ’% fuer Schneider aktiv x 
17 ’x x 
18 ’* CPC 464/664/6128 * 
X 
X 
x 
x 


22 ’ZERKKKKKKKKKKKKKKKKEKKKKKKKKK KK KK X 
140 ’ 

150 ’Hauptprogramm 

160 ’ 
170 INK 0,0:PAPER 0:INK 1,23:PEN 1:BORDE 
R 0:MODE 2:ZONE 20 

180 MEMORY &3FFF:POKE &A000,&11:POKE &A0O 
01,0:POKE &A002,&40:POKE &A003 ,&CD : POKE 
& A004 ,&9B:POKE &A005,&BC:POKE &A006,&C9 
190 OPENOUT"dummy" :MEMORY HIMEM-1:CLOSEO 
UT:DIM datei$(80) ‚datlen(80) ,komm$ (10) 
200 GOSUB 250:IF wahl<8 THEN ON wahl GOS 
UB 320,430,500,680,760,820,930:GOTO 200 
210 CLS:END 

220 ’ 


230 ’Unterprogramme (km 


250 ’Hauptauswahl anzeigen 
260 CLS:PRINT"Bitte warten. ..":f=FRE("") 
270 CLS:PRINT CHR$(24);"Diskette 
nverzeichnis 

Version 2.0" ;CHR$(24) :PRINT 
:PRINT"”(c) 1986 by BIG BUG Software" :PR 
INT: PRINT 
280 PRINT"1 > Diskette benennen" :PRINT:P 
RINT"2 > Neue Diskette eintragen" :PRINT: 
PRINT"3 > Geaenderte Diskette eintragen" 
:PRINT:PRINT"4 > Inhaltsverzeichnis ausg 
eben" :PRINT 
290 PRINT"5 > Diskette loeschen”" :PRINT:P 
RINT"6 > Kommentare aendern" :PRINT: PRINT 
"7 > Diskettenverzeichnis ausgeben" :PRIN 
T:PRINT"8 > Ende" 
300 LOCATE 1,24: INPUT"Bitte waehlen: ",w 
ahl:IF wahl<1 OR wahl>8 THEN 300 
310 RETURN 
320 ’Diskette benennen 
330 CLS:PRINT CHR$(24) ;'"Diskette benenne 
n" ;CHR$ (24) :PRINT:PRINT:GOSUB 1070 
340 PRINT: PRINT: INPUT"Name der Diskette" 
;name$ :name$=UPPER$ (name$ ) 
350 OPENOUT"'NAME . INF" :PRINT£9 ,‚name$ :CLOS 
EOUT : PRINT: PRINT:GOSUB 1090 
360 OPENIN"NAMEN.DAT":vorh=0:WHILE NOT E 
OF: INPUT£9, vg11$: INPUT£9,vgl2$:IF vgl1$= 
name$ THEN vorh=-1 
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370 WEND:CLOSEIN: IF vorh THEN PRINT: PRIN 
T:PRINT"Name ";name$;" bereits vergeben. 
":PRINT"Weiter mit Taste." :WHILE INKEY$= 
"":WEND:GOTO 330 

380 PRINT: PRINT: INPUT"Abkuerzung fuer Da 
tei (max. 8 Zeichen, nur Buchstaben)" ;ab 
k$ :abk$=UPPER$ (abk$) 

390 OPENIN"NAMEN.DAT" :vorh=0:WHILE NOT E 
OF: INPUT£9, vg11$: INPUT£9,vgl2$:IF vgl2$= 
abk$ THEN vorh=-1 

400 WEND:CLOSEIN:IF vorh THEN PRINT: PRIN 
T"Abkuerzung ";abk$;" bereits vergeben." 
:GOTO 3830 

410 alt$="NAMEN.DAT" :neu$="SCRATCH.$$$": 
OPENIN alt$:OPENOUT neu$:WHILE NOT EOF:I 
NPUT£9 ,vgl1$: INPUT£9, vg12$:PRINT£I9,vgl1$ 
:PRINT£9, vg12$:WEND 

420 PRINT£9 ‚name$ :PRINT£9 ,‚abk$:CLOSEIN:C 
LOSEOUT: !ERA,@alt$: !REN,@alt$ ,‚@neu$ :RETU 

RN 

430 ’Neue Disk eintragen 

440 CLS:GOSUB 1070:CLS:GOSUB 1000 :OPENIN 
"NAME. INF" : INPUT£9 ,name$ :CLOSEIN 

450 CLS:GOSUB 1090 :OPENIN" NAMEN . DAT" :WHI 
LE NOT EOF: INPUT£9,vg1l1$:INPUT£9,vg12$:1 
F vgli$=name$ THEN abk$=vg12$ 

460 WEND:CLOSEIN:OPENOUT abk$ 

470 FOR i=1 TO dz:CLS:PRINT CHR$ (24) ;"Ne 
ue Diskette aufnehmen” ;CHR$ (24) :PRINT:PR 
INT:PRINT"File: ";datei$(i) :PRINT"Laenge 
:"sdatlen(i);"K" 

480 FOR j=1 TO 10:LOCATE 1,9+3j:PRINT STR 
ING$ (80,"_"):NEXT 53:FOR 5=1 TO 10:LOCATE 
1,9+j:LINE INPUT komm$ (5):NEXT j 

490 PRINT£9,datei$(i) :PRINT£9,datlen(i): 
FOR j=1 TO 10:PRINT£9,komm$(53):NEXT J,i: 
CLOSEOUT : RETURN 

500 ’Geaenderte Disk eintragen 

510 CLS:GOSUB 1070:CLS:GOSUB 1000 :OPENIN 
"NAME . INF" : INPUT£9 ‚,name$ :CLOSEIN:CLS :GOS 

UB 1090 

520 OPENIN"NAMEN .DAT" :WHILE NOT EOF: INPU 
T£9,vgl1$: INPUT£9,vgl12$:IF vgl1l$=name$ T 
HEN abk$=vg12$ 

530 WEND:CLOSEIN 

540 CLS:PRINT CHR$ (24) ;"Geaenderte Diske 
tte eintragen" ;CHR$ (24) :PRINT: PRINT: INPU 
T"Geloeschte Files anzeigen (J/N)";3n$:J 
n$=UPPER$ (LEFT$(jn$,1)):IF jn$= N THEN 
600 

550 gz=0:PRINT:PRINT"Geloescht wurden:": 
OPENIN abk$:WHILE NOT EOF: INPUT£9,velfil 
e$: INPUT£9,1:FOR i=1 TO 10:LINE INPUT £9 
‚komm$(i):NEXT i 

560 vorh=0:FOR i=1 TO dz:IF RT REN 
lfile$ THEN vorh=-1 

570 NEXT i:IF NOT vorh THEN gz=g2+1:PRIN 
T vglfile$, "Laenge";1;"K" 

580 WEND:CLOSEIN:IF gz=0 THEN PRINT"kein 


e Dateien” ELSE PRINT" Insgesant:" ;g2;"Da 
teien" 
590 PRINT: PRINT: PRINT'"Weiter mit Taste": 
WHILE INKEY$="" :WEND 
600 az=0 :neu$="SCRATCH. $$$" :OPENOUT neu$ 
610 FOR i=1 TO dz:CLS:PRINT CHR$(24) ;"Ne 
waufnahme von Dateien" ;CHR$ (24) :PRINT:PR 
INT:PRINT"File: ";datei$(i) :PRINT"Laenge 
:"sdatlen(i) ;"K" :PRINT:PRINT 
620 vorh=0:OPENIN abk$:WHILE NOT EOF:INP 
UT£9,name$: INPUT£9,1:FOR j=1 TO 10:LINE 
INPUT £9,komm$(5):NEXT 3 
630 IF datei$(i)=name$ THEN PRINT£9, name 
$:PRINT£9,1:FOR j=1 TO 10:PRINT£9,komm$ ( 
J):NEXT j:PRINT"bereits bekannt." :vorh=- 
1 
640 WEND:CLOSEIN: IF vorh THEN 670 
650 FOR j=1 TO 10:LOCATE 1,9+3:PRINT STR 
ING$(80,"_"):NEXT 3:FOR j=1 TO 10:LOCATE 
1,9+5j:LINE INPUT komm$(j):NEXT j:az=azt 
1 
660 PRINT£9,datei$(i) :PRINT£9,datlen(i): 
FOR j=1 TO 10:PRINT£9,komm$(5):NEXT j 
670 NEXT i:CLS:PRINT az;"Files neu aufge 
nommen . " :CLOSEOUT: !ERA,@abk$: ;REN,@abk$, 
@neu$ :RETURN 
680 ’Inhaltsverzeichnis ausgeben 
690 CLS:PRINT CHR$ (24) ;"Inhaltsverzeichn 
is" ;CHR$ (24) :PRINT:PRINT:GOSUB 1090:PRIN 
T:PRINT: INPUT"Waehlen Sie <1> fuer Bilds 
chirm, <2> fuer Drucker: ",‚s:s=(s-1)*8 
700 PRINT: PRINT: INPUT"Welche Diskette" ;n 
ame$ : name$=UPPER$ (name$) :vorh=0 :OPENIN”"N 
AMEN.DAT" :WHILE NOT EOF: INPUT£9,vg11$:IN 
PUT£9,vg12$:IF vgl1$=name$ THEN abk$=vgl 
2$:vorh=-1 
710 WEND:CLOSEIN:IF NOT vorh THEN PRINT: 
PRINT: PRINT"Diskette ";name$;"” nicht ein 
getragen!" :GOTO 700 
720 PRINT£s,"Inhaltsverzeichnis ";name$: 
PRINT£s ‚STRING$ ( 19+LEN (name$) ‚"=") :PRINT 
£&s:PRINT£s 
730 OPENIN abk$:WHILE NOT EOF: INPUT£9,a$ 
:PRINT£s,"File: ";a$:INPUT£9,1:PRINT£s," 
Laenge:" ;1;"K" :PRINT£s ,‚STRING$ (80,"-") 
740 FOR i=1 TO 10:LINE INPUT £9,komm$ (i) 
:NEXT i:letzte=10:WHILE komm$ (letzte)="" 
:letzte=letzte-1:WEND 
750 FOR i=1 TO letzte:PRINT£s,komm$(i):N 
EXT i:PRINT£s : PRINT£s ‚STRING$ (80,"”£"):PR 
INT£s :WEND: CLOSEIN: PRINT£s, "Ende Inhalts 
verzeichnis " ;name$ :RETURN 
760 ’Disk loeschen 
770 CLS:PRINT CHR$(24) ;"Diskette loesche 
n";CHR$ (24) :PRINT:PRINT:GOSUB 1090:PRINT 
:PRINT 
780 INPUT"Welche Diskette" ;name$ :name$=U 
PPER$ (name$) 
790 gel=0:alt$="NAMEN.DAT" :neu$="SCRATCH 


LISTING 


.$$$" :OPENIN alt$:OPENOUT neu$:WHILE NOT 
EOF: INPUT£9, vg11$: INPUT£9,vgl2$:IF vgli 
$=-name$ THEN :ERA,@vgl12$:gel=-1 ELSE PRI 

NT£9,vg11$:PRINT£9, vgl2$ 

800 WEND:CLOSEIN:CLOSEOUT: IF gel THEN PR 
INT"Geloescht." ELSE PRINT"Nicht gefunde 


810 !ERA,@alt$: !REN,@alt$ ,@neu$ : RETURN 
820 ’Kommentare aendern 

830 CLS:GOSUB 1090 : PRINT: PRINT: INPUT"Wel 
che Diskette" ;name$ :name$=UPPER$ (name$) 
840 vorh=0 :OPENIN"NAMEN.DAT":WHILE NOT E 
OF: INPUT£9, vg1l1$: INPUT£9,vg12$:IF vgl1$= 
name$ THEN abk$=vg12$:vorh=-1 

850 WEND:CLOSEIN:IF NOT vorh THEN PRINT: 
PRINT: PRINT"Nicht gespeichert." :PRINT'We 
iter mit Taste." :WHILE INKEY$="" :WEND:GO 
TO 830 

860 neu$="SCRATCH. $$$" :OPENIN abk$ :OPENO 
UT neu$:WHILE NOT EOF:CLS: PRINT CHR$(24) 
;"Kommentare aendern" ;CHR$ (24) :PRINT:PRI 
NT 

870 INPUT£9, name$ : INPUT£9,1:PRINT£9 ‚name 
$:PRINT£9,1:PRINT"File: ";name$ :PRINT"La 
enge:";1;"K" 

880 FOR i=1 TO 10:LINE INPUT £9,komm$(i) 
:LOCATE 1,9+1:PRINT komm$(i):NEXT i 

890 LOCATE 1,20: INPUT"Aendern (J/N)";jn$ 
: 3n$=UPPER$ (LEFT$(jn$,1)):IF jn$="N" THE 
N 910 

900 FOR i=1 TO 10:LOCATE 1,9+1:PRINT STR 
ING$(80,"_"):NEXT i:FOR i=1 TO 10:LOCATE 

1,9+1:LINE INPUT komm$(i):NEXT i 

910 FOR i=1 TO 10:PRINT£9,komm$ (i) :NEXT 
i 

920 WEND:CLOSEIN:CLOSEOUT: !ERA ,@abk$: !RE 
N, @abk$ ‚@neu$ :RETURN 

930 ’Diskettenverzeichnis 

940 CLS:PRINT CHR$(24) ;"Diskettenverzeic 
hnis" ;CHR$ (24) :PRINT:PRINT:GOSUB 1090:PR 
INT: PRINT: INPUT"Bitte waehlen Sie <1> fu 
er Bildschirm, <2> fuer Drucker: ",s:s=( 
s-1)*8 

950 PRINT£s, "Folgende Disketten sind ges 
peichert:" :PRINT£s ,STRING$ (36, "=") :PRINT 
£s :OPENIN"NAMEN .DAT" :WHILE NOT EOF: INPUT 
£9 ,name$ : INPUT£9,abk$:IF name$<>"$$$" TH 
EN PRINT£s, "Diskette ";name$:PRINTSs,"in 

Datei ";abk$:PRINT£s 

960 WEND: CLOSEIN : RETURN 

970 °’ 

9g0 ’Unterprogramme (dive 
rse Jobs) 

990 ’ 

1000 ’Disk anmelden 

1010 FOR i=1 TO 80:datei$(i)=" 

":datlen(i)=0:NEXT i:dz=0 ’11 Leerzeich 
en 
. 1020 CALL &A000: PRINT: PRINT'Moment bitte 
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". 
... 


1030 s=&4000:p=0 

1040 dz-dz+1:FOR i=1 TO 11:p=pt1:MID$ (da 

tei$(dz),i,1)=CHR$(PEEK(s+p) ):NEXT i 
1050 p=pt1:datlen(dz)=PEEK(stp):IF PEEK( 
s+pt1)=0 AND PEEK(s+pt2)<>0 THEN p=pt2:G 

OTO 1040 

1060 RETURN 

1070 ’Aufforderung Arbeitsdisk 

1080 PRINT"Bitte ";CHR$(24) ;"Arbeitsdisk 
ette";CHR$(24);" einlegen." :PRINT"Weiter 
mit Taste." :WHILE INKEY$="" :WEND: RETURN 
1090 ’Aufforderung Verzeichnisdisk 

1100 PRINT"Bitte ";CHR$(24) ;"Verzeichnis 
diskette" ;CHR$(24);" einlegen." :PRINT"We 
iter mit Taste.":WHILE INKEY$="":WEND:RE 
TURN 


ANZEIGEN IN 
SCHNEIDER 


AKTIV: EFFEKTIV 
UND 
PREISWERT! 


TAIFUN 
BASIC-Compiler 


CPC 464: DM 124,90 
CPC 664/6128: DM 139,90 


Achtung: 
3''-Disketten n H 
CF2D SOFORT CHIP (8785); 


LIEFERBAR "Bei ISSCOM 1 aus dem gleichen Hause 
taandelt es sich um eines der wohl wichtig- 


10er-Pack. Le) 5 = sten Programme für. den Schneider über- 
DM a auge Es 


Computer-Schau (7/85). 
"ISSCOM 1 wendet sich an den Basic-Pro- 
gtammierer und zählt wohl zu den wichtig- 
sten Hilfsmitteln, denn _” 

1/86); 
"Mit ISSCOM 1 steht ein leistungsfähiger 
Compiler für den CPC 464 zur Verfügung, mit 
dem es möglich ist, BASIC-Programme en 
bloc in die für Computer verständliche 
Maschinensprache zu übersetzen...” 
"Der Vorteil: Die Ausführungsgeschwindig- 
keit erhöht sich um den Faktor 20 bis 200." 


Eine Aufzählung der zusätzlichen Vorteile 
von TAIFUN würde den Rahmen dieser An- 
zeige bei weitem sprengen, denn er stellt nun 
gleichzeitig noch eine sehr umfangreiche 
BASIC-Befehlserweiterung (CIRCLE, FILL 
etc.) dar. 

Kostenlose Informationen über unser gesam- 
tes Lielerspektrum und Bestellungen bei: 


GERDES 
ImperlalSOFTware Systems 
Heldegartenstrafße 36 
D 5300 Bonn I 
Tel. 0228/25 2474 


Höftestraße 32 
4400 Münster 
Tel. 0251/61 9881 


LABELS - WIRK- 


LICH EIN 
DURCHBRUCH? 


Für alle IBM-Kompatib- 


len mit mindestens 256 
K Speicher bietet die eng- 
lische Firma Robin Soft- 
ware das Programm LA- 
bels an — eine einfache 
Adreßverwaltung, oder 
doch etwas mehr? 

LABELS kann zu jeder 
Adresse einen Code auf- 
nehmen, der wichtige In- 
formationen enthält. Ro- 
bin Software wirbt da- 
mit, daß man so z.B. 
eine Liste aller weibli- 
hen Bekannten in der nä- 
heren Umgebung von 
London (oder München) 
ausdrucken könnte, oder 
eine Liste aller jüngeren 
männlichen Angestellten, 
die einen BMW fahren. 
Sinnvoller dürfte wohl 
die Anwendung sein, mit 
Hilfe dieses Codes Serien- 
briefe an potentielle Kun- 
den zu schicken. 

Obwohl Robin Soft- 
ware angibt, LABELS sei 
auch als privates Telefon- 
buch geeignet, dürfte es 
wohl eher für kleinere 
Firmen interessant sein. 
Auf eine Diskette passen 
750 Adressen, auf eine 
10-MB-Harddisk jedoch 
20.000. Derartige Syste- 
me, so Robin Software, 
sind meist nur Teil einer 
großen Textverarbeitung, 
deren übrige Funktionen 
jedoch nie benötigt wer- 
den. Zu einem Preis von 
lb 99,— könnte LABELS 
also durchaus Abnehmer 
finden. (Alwin Ertl) 


GEM SOFTWARE 
FUR DEN 
SCHNEIDER PC 


Digital Research hat in 
England fünf neue Pro- 
gramme für den Schnei- 
der PC angekündigt. Im 
einzelnen handelt es sich 


dabei um GEMWrite, 
GEMDraw, GEMWord- 
Chart, GEMGraph und 


REPORT 


DIES & 
DAS-FÜR 


JEDEN WAS 


GEMDiary. Wie die Na- 
men schon sagen, schöp- 
fen alle Programme die 
Möglichkeiten der Benut- 
zerführung via GEM und 
Maus voll aus. 

GEMWrite ist eine 
Textverarbeitung, die al- 
lein über Pull-Down-Me- 
nues und Symbole (die 
berühmten Icons) zu 
steuern ist. Das Pro- 
gramm enthält eine Ein- 
führung, mittels der man 
in nur einer (!) Stunde 
den Umggang mit GEM- 
Write erlernen soll. Grafi- 
ken und Tabellen können 
von GEMDraw, GEM- 
WordChart und GEM- 
Graph übernommen wer- 
den. 

GEMDraw ist ein her- 
vorragendes Mal- und Zei- 
chenprogramm, das na- 
türlich ebenfalls vollen 
Gebrauch von den Mög- 
lichkeiten des neuen PC 
macht. WordChart dient 
zum Erstellen von Tabel- 
len oder kurzen Stich- 
wortlisten, z.B. Tagesord- 
nungen. Der absolute Hit 
scheint jedoch GEM- 
Graph zu sein. Abgesehen 
davon, daß die Erstellung 
von professionellen 3D- 
Grafiken möglich ist, sind 
auch Symbole wie Autos 
oder Flugzeuge vorpro- 
grammiert, etwa um Ver- 
kaufszahlen ansprechend 


. darzustellen. Zusätzliche 


Symbole können von 
GEMDraw erzeugt und in 
GEMGraph eingelesen 
werden. direkte Eintra- 
gung von Daten ist eben- 
so möglich wie Übernah- 


. nert, 


me von Lotus 1-2-3, 
Symphony oder dBase 
II. 


GEMDiary schließlich 
ıst ein Terminkalender, 
der als Hintergrundpro- 
gramm abgearbeitet wer- 
den kann, auch wenn ge- 
rade eine andere Anwen- 
dung läuft. Von der GEM- 
Auswahl aus ist der Zu- 
gang zum Diary jederzeit 
möglich. Der Clou bei der 
Sache ist die eingebaute 
Uhr, die Sie an einen 
wichtigen Termin erin- 
während Sie z.B. 
mit einer Textverarbei- 
tung Ihre Briefe tippen. 

In England sind die 
Programme zu einem 
Preis von lb 99.95 erhält- 
lich; GEMDiary kostet Ib 
39.95. Ein niedrigerer 
Preis wäre zwar wün- 
schenswert; alles in allem 
kann der Preis jedoch als 
angemessen bezeichnet 
werden. Ein großer Vor- 
teil sind die Schnittstel- 
len zwischen den Pro- 
grammen. Schade nur, 
daß alle fünf zusammen 
immerhin fast Ib 450.— 
kosten. (Alwin Ertl) 


SCANNER FÜR 
CPC 


Neuankündigung von 
Dart Electronics aus Eng- 
land: Grafik-Scanner für 
alle CPC. Das Gerät signa- 
lisiert alle möglichen Bil- 
der und legt sie im CPC- 
Grafikspeicher ab. Eine 
Weiterbearbeitung durch 
den Dart Lightpen wird 
somit ermöglicht, ebenso 
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ein Ausdruck auf dem 
DMP 2000 — mit ver- 
schiedenen Vergröße- 
rungsfaktoren. 

Die Abtastung eines 
Bildes dauert nur „Minu- 
ten“ — die Dart-Leute 
werden allerdings wissen, 
weshalb sie auf ihrem Re- 
klame-Prospekt dieses 
Wort in Anführungszei- 
chen gesetzt haben. Auch 
eine Stunde hat ja „nur“ 
sechzig Minuten. Bei ei- 
nem empfohlenen Ver- 
kaufspreis von ca. 60 
Pfund dürfte das Gerät 
jedoch eine sinnvolle Er- 
weiterung für alle ernst- 
haften Grafik-Hobbyisten 
sein. 

(Alwin Ertl) 


FLEETSTREET- 
EDITOR: DER 
EINMANN- 
VERLAG AUF 
DEM CPC 


Was bis jetzt größeren 
Computern wie z.B. App- 
ples Macintosh vorbehal- 
ten war, wird jetzt auf 
dem CPC möglich, vor- 
ausgesetzt, er hat minde- 
stens 128 K eingebaut: 
Desktop publishing, die 
Anfertigung professionel- 
ler Layouts zuhause am 
Schreibtisch. In London 
wurde jetzt der Fleet 
Street Editor der Firma 
Mirrorsoft vorgestellt. 
Dieses Programm enthält 
einen kompletten Grafik- 
Editor mit einigen vorde- 
finierten Symbolen, 
selbstverständlich einen 
Texteditor und ein ‚„ad- 
ministration department‘, 
das die Diskettenverwal- 
tung erledigt. 

Auf dem Bildschirm 
kann jeweils eine kom- 
plette DIN-A-4-Seite er- 
stellt werden, mit maxi- 
mal drei Textspalten, 
Grafikflächen werden bei 
der Texterstellung auto- 
matisch ausgespart. 
Schnittstellen nach außen 
sind die Möglichkeiten, 
Texte und Bilder von ex- 


ternen Files einzulesen. 
Somit können auch digi- 
talisierte Grafiken aufge- 
nommen werden. 

Der Ausdruck erfolgt 
über einen grafikfähigen 
Matrixdrucker, was zwar 
keine allzuhohe Qualität 
ergeben dürfte, aber den- 
noch akzeptabel ist. Ak- 
zeptabel auch der Preis 
des Programms: in Eng- 
land Ib 49.95 inkl. MWSt. 
In Vorbereitung sind zwei 
Disketten mit zusätzli- 
chen Grafiksymbolen 
und Zeichensätzen für 
den Fleet Street Editor: 
Fronts’n’Graphics sowie 
die Walt Disney Graphics 
Library. Letzere enthält 
fünfzig Disney-Figuren, 
die in Fleet-Street-Editor- 
Dokumenten verwendet 
werden dürfen, ohne Ur- 
heberrechte zu verletzen. 
Leider ist diese Grafik- 
datei vorläufig nur in 
Großbritannien erhältlich. 

(Alwin Ertl) 


NEWSWRITER- 


DESKTOP FÜR 
DIE PC 


Von Cognita aus England 


kommt ein neues Desk- 
top-Layout-Programm 
auf den Markt. News- 
writer läuft auf allen IBM- 
Kompatiblen mit minde- 
stens 512 K Speicher. 
Für den Ausdruck der 
Dokumente wird ein La- 
ser-Printer benötigt — 
also wirklich ein System 
für professionelle Anwen- 
dungen. 

Newswriter funktio- 
niert in der Art eines her- 
kömmlichen 
beitungssystems — passio- 
nierte Maus-Anwender 


müssen daher auf ıhr kleı-- 


nes Tierchen verzichten. 
Das Programm enthält ei- 
ne große Anzahl von 
Funktionen, u.a. eine 
Möglichkeit zur Berech- 
nung der Seitenzahl, die 
ein gegebener Text ein- 
nehmen wird. Nach Aus- 
: sagen von Cognita hat 


Textverar- ° 


REPORT 


sich das System seit ei- 
nem Jahr in größeren Or- 
ganisationen bewährt und 
sei voll ausgereift. 

Durch Vergrößerung 
und Verkleinerung von 
Wortzwischenräumen 
und Zeilenabständen läßt 
sich ein Text auf einer 
vorgegebenen Anzahl von 
Seiten unterbringen. Ein 
besonderes Feature ist 
die automatische Auf- 
nahme von Überschriften 
ins Inhaltsverzeichnis. 
Und selbstverständlich 
wird dafür gesorgt, daß 
Überschriften nicht am 
unteren Rand einer Seite 
oder Spalte plaziert wer- 
den. 

In einem Text können 
bis zu 26 „boxes‘ gesetzt 
werden, Kästchen also 
mit vollkommen verschie- 
dener Druckgestaltung. 
Auf einem PC können bis 
zu 400 K Text auf ein- 
mal verarbeitet werden. 
Standardtexte kann man 
aus einer Datei einlesen 
und plazieren. 

Die Angaben für Spal- 
tenbreite, Seitenlänge 
usw. können in Zoll, 
Punktbreiten, Zentimeter, 
Millimeter oder Einheiten 
der Druckerauflösung an- 
gegeben werden. Seiten 
können als Ganzes nach 
oben, unten, links oder 
rechts verschoben wer- 
den. Gerade und ungera- 
de Seitenzahlen werden 
automatisch unterschied- 
lich gesetzt. 

Abstände zwischen 
Zeilen und Absätzen wer- 
den automatisch gesetzt; 
eine nachträgliche ma- 
nuelle Korrektur ist je- 
doch möglich. Das ganze 
Programm arbeitet nach 
dem Prinzip „what you 
see is what you get“. 
Das heißt: Ein Dokument 
erscheint so auf dem Bild- 
schirm, wie es gedruckt 
wird. 

Allein des Preises und 
der benötigten Hardware 
wegen dürfte das Pro- 
gramm für den Heiman- 
wender uninteressant 


sein. Für den professionel 
len Einsatz ist es jedoch, 
der Cognita-Beschreibung 
nach, hervorragend geeig- 
net. Kleinere Veröffent- 
lichgungen können je- 
doch auch mit anderen 
Programmen bewerkstel- 
ligt werden, die auch der 
Geldbeutel des ‚norma- 
len“ 
tet. 


CPC-Users verkraf- 
(Alwin Ertl) 


LOCAL AREA 
NETWORK FÜR 
PC 1512 


MicroMods Ltd. bietet un- 


ter dem Namen DeskLAN 
eine Netzwerk-Schaltung 
für die neuen Schneider 
PCs an. Das bringt den 
PC dem professionellen 
Einsatz einen Schritt nä- 
her. Für 1599 Pfund ist 
in England eine Schal- 
tung erhältlich, die sechs 
PCs zusammenschaltet 
und einen raschen Daten- 
austausch ermöglicht. 
Die Firma behauptet, 
DeskLAN sei innerhalb 
von dreißig Minuten in- 
stalliert und getestet. Ihr 
Werbeslogan: „DeskLAN 
ist so einfach zu benut- 
zen — Sie bemerken gar 
nicht, daß es überhaupt 
vorhanden ist.“ Hoffen 
wir’s! 
(Alwın Ertl) 
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BRINGEN SIE 


IHREM PC DAS 
LESEN BEI 


Mit diesem Slogan wirbt 


die britische Firma Lexi 
Systems für ihren Dest 
PC Scan — ein Klar- 
schrift-Lesegerät für alle 
IBM-Kompatiblen. Er 
dürfte also auch mit dem 
neuen Schneider PC 
funktionieren. Das Gerät 
soll im Firmeneinsatz in 
erster Linie dazu dienen, 
Dokumente von anderen 
Firmen, Filialen oder Ab- 
teilungen nicht mehr 
langwierig in eine Text- 
verarbeitung eintippen zu 
müssen. Der Dest PC 
Scan kann normale 
Schreibmaschinenschrift 
(auch als Fotokopie) so- 
wie Matrixdrucker-Quali- 
tät erkennen. Dabei stellt 
er sich automatisch auf 
Papier- und Druckquali- 
tät sowie auf Schriftart 
und Zeilenabstand ein. 
Das zugehörige Pro- 
gramm TextPac ermög- 
licht die Bearbeitung der 
eingelesenen Texte mit 
allen Funktionen eines 
guten Textverarbeitungs- 
programms auf PC-Ni- 
veau. Es werden mindes- 
tens 256 K freier Spei- 
cher benötigt; besser 
dürften jedoch 512 sein. 
Über den Preis des Ge- 
rätes, das im September 
erstmalig vorgestellt wur- 
de, waren leider keine In- 
formationen zu bekom- 
men. Sofern sich dieser in 
erschwinglichen Grenzen 
hält, dürfte der Scanner 
für Firmen, die eine 
große Menge an Korre- 
spondenz zu bewältigen 
und Unterlagen zu ver- 
walten haben, interessant 
sein. Immerhin gibt die 
Herstellerfirma an, daß 
eine Seite in durchschnitt- 
lich dreißig Sekunden 
eingelesen sei. Im Ver- 
gleich zum herkömnli- 
chen Tippen verringert 
sich der Zeitaufwand also 
erheblich. (Alwin Ertl) 


Tr 


TEST 


PRODAT: SCHNELL & 
PREISWERT-ABER 
NICHT OHNE MAKEL 


Dateiverwaltungsprogramme gibt es für die Schneider CPC mittlerweile 
soviel wie der berühmte Sand am Meer. Unser Autor untersucht hier ein 
preiswertes Angebot, das viele Vorzüge, aber auch etliche Fehler hat. Sein 
abschließendes Urteil: Trotzdem ein Spitzenprogramm. 


Mit dem Anwenderprogramm stellt 
die Firma Interstate eine Dateiver- 
waltung vor, die durch ihre Schnel- 
ligkeit, ihre Anwenderfreundlich- 
keit und ihr hervorragendes Preis- 
Leistungsverhältnis auffällt. 

Das Programm gliedert sich in 
zwei Teilprogramme auf: 

a) Der Maskengenerator 
b) Das Dateiverwaltungsprogramm 

Das Programm ist total menue- 
gesteuert, was bedeutet, daß selbst 
der absolute Laie dieses Programm 
bedienen kann. Selbst in den Un- 
terprogrammen werden einem Hilfs- 
menues bereitgestellt. 

Das Programm ist so angelegt, 
daß man eine Vielzahl von Hin- 
weisen direkt vom Programm erhält. 
So erklärt sich das Programm sogar 
fast von selbst. 

Bei diesem Programm wurde 
sogar sehr große Rücksicht auf die 
CPC-Besitzer mit Grünmonitor ge- 
nommen, denen durch die gewähl- 
ten Grüntöne ein angenehmes Ar- 
beiten gewährleistet wird. Bevor 
man sich jedoch in das Arbeiten 
mit der Dateiverwaltung stürzen 
kann, muß man sich als erstes mit 
dem Maskengenerator auseinander- 
setzen. 

Mit diesem Generator wird eine 
sogenannte Maske erstellt. Die Mas- 
ke wird im Handbuch mit einer 
Karteikarte verglichen, die ein 
Hilfsmittel dafür ist, daß man später 
ein geordnetes und übersichtliches 
Bild erhält. In dieser Maske gibt 
mn weiterhin an, welche Informa- 
tionen hinterher das Dateiverwal- 
tungsprogramm abfragen soll. 

Hat man also jetzt diesen Mas- 
kengenerator geladen, erscheint auf 
dem Bildschirm ein fünfteiliges Me- 
nue, welches folgende Punkte ent- 
hält? 


1). Das Eingeben. Hier muß man 
die Maske erstellen. Grundsätzlich 
kann man zwischen zwei Modus- 
arten wählen (Mode 1 / Mode 2), 
wobei im Modus 1 40 Zeichen und 
im Modus 2 sogar 80 Zeichen ver- 
wendet werden können. 

Wenn nun diese Maske soweit 
entworfen ist, wird sie durch zeilen- 
weises Ablesen gespeichert. Danach 
erscheint dann wieder das Menue. 

2.) Ändern. War die Eingabe 
nicht richtig oder möchte man sich 
die Maske nochmal anschauen, 
wählt man einfach den Menuepunkt 
„Ändern“. Nun ist man im Editier- 
modus und kann beliebig in seiner 
Maske korrigieren. Ist dieses gesche- 
hen, wird die Maske erneut gespei- 
chert und man kann den Programm- 
punkt 3 wählen, das Abspeichern. 

Natürlich kann die Maske auch 
später nochmals in den Maskenge- 
nerator geladen und dann erst ver- 
bessert werden. Auch an kleinen 
Extras haben die Autoren hier nicht 
gespart. So kann man sich natürlich 
auch den Disketteninhalt mit Hilfe 
des Menuepunktes 5, CAT anschau- 
en. 
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Hat man nun seine Maske erstellt 
und auch abgespeichert, löscht man 
den Speicher und lädt das Datei- 
verwaltungsprogramm. Ist dieses 


‘nun im Arbeitsspeicher, erscheint 


auf dem Bildschirm das Hauptme- 
nue mit neuen Wahlpunkten. 

Der Bildschirmaufbau läßt sich in 
3 Abschnitte aufteilen. 

Im oberen Teil wird immer in 
Form eines Rechteckes das jeweili- 
ge, aktuelle Unterprogramm ange- 
zeigt. Außerdem steht dort mei- 
stens, wie man in das Hauptmenue 
zurückgelangt. Im unteren Ab- 
schnitt werden immer Hinweise, 
Warnungen und Fehlermeldungen 
angegeben. Im mittleren Teil sieht 
man das Hauptmenue. 

Als erstes muß man nun den Pro- 
grammpunktl wählen und damit 
seine erstellte Maske laden. 

Danach wählt man den Pro- 
grammpunkt 2, die Dateieingabe, 
an. Hier zahlt sich nun eine über- 
sichtliche Maske aus. 


ES KÖNNEN BIS 
ZU 100 DATENSÄTZE 
EINGEGEBEN WERDEN 


Bis zu 100 Datensätze können 
jetzt eingegeben werden. Ein weite- 
rer wichtiger Menuepunkt ist das 
Datensuchen und "ändern. Die Me- 
thode des Suchens ist bei diesem 
Programm besonders gut gelöst. So 
ist eshier möglich, nur den Anfangs- 
buchstaben eines in einem Daten- 
satz enthaltenden Datenfeldes anzu- 
geben und das Programm sucht 
innerhalb von Bruchteilen von Se- 
kunden den gesuchten Datensatz 
heraus. 

Selbstverständlich wurde bei die- 
ser Dateiverwaltung auch an das 
Ausdrucken von Datensätzen ge- 
dacht. 

Wählt man den Programmpunkt 
6, erhält man eine unausgefüllte 
Maske, bei der jedes Feld mit einer 
Nummer versehen ist. 

In das unterste Eingabefeld muß 
nun die Anzahl der Zeichen ange- 
geben werden, die man in einer Zei- 
le ausdrücken will. Ist dieses gesche- 
hen, muß noch eingegeben werden, 
ob man den Ausdruck mit oder 
ohne Überschrift wünscht und ab 
welchem bzw. bis zu welchem Feld 
man den Ausdruck haben will. 

Bei der Anpassung des Program- 
mes an diverse Drucker hat es sich 
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der Autor jedoch sehr einfach ge- 
macht. So wird im Handbuch ledig- 
lich angegeben, daß man die Steuer- 
befehle jedesmal vor dem Laden des 
Programmes dem Computer einge- 
ben müßte und rühmt sich noch, 
eine bewußt einfache Lösung gefun- 
den zu haben. 

Wenn man nun dem Drucker alle 
Befehle übermittelt hat, muß man 
im Hauptmenue den Punkt 3 an- 
wählen, also das Suchen und Än- 
dern von Datensätzen. Jetzt muß 
man den auszudruckenden Daten- 
satz suchen und gelangt dann in 
ein kleines Hilfsmenue. Hier wählt 
man den Punkt ‚Druck‘ und der 
Drucker wird den gewünschten Da- 
tensatz zum Ausdruck bringen. 
Nach dem Ausdruck kann man ent- 
weder weitere Ausdrucke anferti- 
gen oder man geht in das Hauptme- 
nue zurück. 

Das nützlichste Unterprogramm 
von Pro-Dat ist wohl das Unterpro- 
gramm ‚Text‘, das dem Anwender 
ermöglicht, die Dateiverwaltung in 
Verbindung mit dem Textverarbei- 
tungsprogramm ProText zu verwen- 
den. So kann beispielsweise ein 
Text mit ProText erstellt werden, 
der bis auf Adresse und Anrede 
immer gleich bleiben soll. Mit Hilfe 
von ProDat sucht man sich dann 
die Adressaten heraus, die diesen 
Brief erhalten sollen. Die Adressen 
werden dann von dem Unterpro- 
gramm zu einer Hilfsdatei zusam- 
mengefaßt und der Computer kann 
sie dann später in die Texte einfü- 
gen. 

Mit dem Menuepunkt Neun kann 
man dann schließlich auch noch 
das Programm beenden. 
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Pro-Dat ist ein äußerst leistungsfä- 
higes Programm, welches seine An- 
schaffung wert ist. Es ist besonders 
kleinen Unternehmen zu empfehlen, 
die sich kein teures Softwarepaket 
leisten wollen. Aber auch zum Pri- 
vatgebrauch ist Pro-Dat ein abso- 
lutes Spitzenprogramm, welches in 
Verbindung mit dem Textverarbei- 
tungsprogramm besondes gut seine 
Leistung demonstrieren kann. 

So bereitet dann auch das Ar- 
beiten mit diesem Programm, be- 
sonders durch die so übersichtliche 
Graphik, regelrecht Freude. 
Computer: CPC 464/664/6128 
- Hersteller: Interstate (Basler) 
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IST BASIC 
DOCH BESSER? 


Die Simulation von Strings durch ein PACKED ARRAY OF CHAR ist 
Ihnen bereits aus der „Einführung in HiSoft-Pascal’”’ bekannt. Doch 
BASIC bietet Ihnen einige String-Funktionen, die Sie in Pascal entbehren 
müssen. Diese erste Folge der Fortsetzungsserie zur „Einführung ” soll 
zeigen, wie diese Funktionen ohne großen Aufwand simuliert werden 


können. 


Zunächst einmal ist es günstig, sich 
auf eine maximale String-Länge zu 
einigen. Leiten sie am besten jedes 
Programm, in dem Sie das Routi- 
nen-Paket, welches wir heute ent- 
wickeln werden, verwenden wollen, 
mit folgenden Deklarationen ein: 
CONST 

sl + 89; 

TYPE 

string 3 PACKED ARRAY [1..sl] 
OF CHAR; 

Die Prozeduren und Funktionen 
verwenden, wenn die Höchstlänge 
benötigt wird, die Konstante sl, so 
daß Sie diesen Wert beliebig ändern 
können. Für einen Dateinamen (Sie 
erinnern sich doch an TIN und 
TOUT?) ist beispielsweise eine Län- 
ge von 12 erforderlich. 

Als erstes soll die LEN-Funktion 
des BASIC simuliert werden. In An- 
lehnung an ‘andere Pascal-Versionen 
soll sie die Syntax 
length (s) 
haben, wobei s ein String ist. Dazu 
ist eigentlich nur nötig, sich in Er- 
innerung zu rufen, daß die Befehls- 
folge 
READLN; READ (s) 
den String s automatisch mit CHR 
(®) bis zur maximalen Länge auf- 
füllt. Folglich muß nur untersucht 
werden, und zwar von hinten be- 
ginnend, welches Zeichen kein 
CHR (®) mehr ist, um die Länge 
festzustellen. Eine Einzelabfrage für 
das erste Zeichen zu Beginn der 
Funktion verhindert ein ‚Ausstei- 
gen“ des Programms bei der String- 
länge ®: 


FUNCTION length (s : string) : 
INTEGER; 
VAR 
1: INTEGER: 
BEGIN 
IFs[1]=CHR (P) 
THEN 
length :=® 
ELSE : 
BEGIN 
:= sl; 
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WHILE s[1] = CHR(ß) DO 


1 :=PRED (1); 
length :=1 
END 
END; 


Ein recht einfaches Problem ist das 
„Rücksetzen“ eines Strings auf den 
Nullstring. Dazu muß dieser ledig- 
lich mit CHR(ß) beschrieben 
werden: 
PROCEDURE clear (VAR s: string); 
VAR 
1: INTEGER; 
BEGIN 
FOR i := 1 TO sl DO 
s [i] :=CHR (9) 
END; 


Die Funktion length sowie die 
clear-Prozedur werden wir für die 
folgenden Befehle oft benötigten. 
Und damit wären wir beim 
nächsten Problem, der Simulation 
des MID$3. Die Syntax der Pascal- 
Anweisung soll sein: 

segment (quellstring,start,länge, 

zielstring) 
Da ein String als Funktionsergeb- 
nis unzulässig ist, packen wir das 
Ergebnis als vierten Parameter in 
die Prozedur. Ansonsten ist die 
Reihenfolge dieselbe wie beiMID$. 

Auch die Funktionsweise dieser 
Prozedur ist einfach zu begreifen. 
Zu Anfang muß der Zielstring als 
Nullstring definiert werden. Daran 
anschließend werden in ihm, von 
vorne beginnend, „länge“ CHR (®)’s 
durch die Zeichen ersetzt, die im 
Quellstring ab Position „start‘‘ fol- 
gen: 

PROCEDURE segment (sl : 

string; start, länge : INTEGER: 
VAR s2 : string); 


VAR 

1: INTEGER; 
BEGIN 

clear (s2); 

FOR ı := start TO starttlän- 

ge-1l DO 
s2 [i-start+t1] := sl [i] 

END; 


Nachdem nun geklärt ist, wie 
String-Teile in einen anderen String 
kopiert werden, kann man sich 
diese Methode zunutze machen, um 
zwei Strings aneinanderzuhängen. 
Man tut gut daran, sich zu vergegen- 
wärtigen, daß es sich hier um kein 
richtiges ‚‚Aneinanderhängen‘“ im 
wahrsten Sinne des Wortes handelt. 
Vielmehr werden im Zielstring ein- 
fach die dort vorhandenen Null-Zei- 
chen mit den Zeichen aus den bei- 
den Quellstrings überschrieben. Das 
einzige Problem dabei ist, die rich- 
tige Position zu ermitteln. Wie das 
geht, entnehmen Sie aber am be- 
sten direkt der Prozedur: 


PROCEDURE concat (sl, s2:: 


string; VAR s3 : string); 
VAR 
i, neust : INTEGER: 
BEGIN 
clear (s3); 
FOR ı:=1TO Eher urn DO 
s3 [il :=s1[i}; 
neust := 1; 
DO 


FOR i := 1 TO length PD 
s3 [neust+i—1] := s2 [i] 
END; 


Eine schwierige Angelegenheit ist 
die Simulation der INSTR-Funk- 
tion, die in Pascal so aussehen soll: 
position (sstring, gstring) 

Als Startposition wird immer 1 an- 
genommen. „sstring‘‘ steht für den 
String, der nach „gstring‘“ durch- 
sucht werden soll. 

Nach kurzem oder auch langem 
Überlegen dürfte die Lösung klar 
sein. Wenn 8 die Länge von gstring 
ist, dann müssen von jeder Position 
in sstring aus (solange noch min- 
destens g Zeichen übrig sind) g Zei- 
chen untersucht werden. Wenn 
jedes dieser Zeichen mit dem ent- 
sprechenden in gstring identisch ist, 
dann ist die richtige Position ge- 
funden. 

Für den Fall, daß gstring nicht in 
sstring enthalten ist, wird der Funk- 
tionswert gleich zu Beginn auf ® ge- 
setzt. Die Such-(WHILE-)Schleife 
darf dann ruhig erfolglos durchlau- 
fen. Im Nachhinein betrachtet muß- 
te sich der Programmierer bei die- 
ser Funktion als Variablen-Rastelli 
üben. Damit Sie den Überblick 
nicht verlieren, hier tabellarisch die 
Funktion der Variablen: 

ll Länge von sstring 

12 Länge von gstring 

z Suchposition in sstring 
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i Schleifenzähler (von 1 bis 12) 
für den Test der Zeichen 
comp Anzahl der übereinstimmenden 
Zeichen 
vorh Flag; wird auf TRUE gesetzt, 
wenn comp=12, d.h. Suche er- 
folgreich 


Und hier die Funktion: 
FUNCTION position (sl, s2 : 
string) : INTEGER; 

VAR 
11, 12, z, i, comp : INTEGER; 
vorh : BOOLEAN; 

BEGIN 
position := 
11 := length (sl) ; 12 : =length 

s2); 


vorh := FALSE; 
z:=9 


WHILE (Z<I1-12) AND (NOT 
vorh) DO 
En 
= = SUCC (2); 
mp 
FOR i := 1T012D0 
IF sl[z+ti—1] = s2[i] 
THEN 
comp := SUCC (comp); 
IF comp = 12 
THEN , 
BEGIN 
vorh := TRUE; 
position :=z z 
END 
END 
END; 


Nach diesen schweren Brocken mu- 
tet die Umsetzung der Funktionen 
UPPER$ und LOWER$ geradezu 
einfach an. Sie müssen lediglich 
wissen, daß das große und kleine 
Alphabet in der ASCII-Notation 
sich um den Wert 32 unterscheiden. 
Oder in Pascal-Notation: 

ORD (‘A‘) + 32 = ORD (‘a‘) 
Damit haben wir auch schon unsere 
Prozeduren: 

PROCEDURE upper (VAR s : 


string); 
VAR 
1: INTEGER 
BEGIN 
FOR i := 


1 TO length (s) DO 
IF si] IN (a. 2] 

THEN 

sli] := CHR (ORD(sli])-32) 
END; 


PROCEDURE lower (VAR s: 
string); 
VAR 
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1: INTEGER; 
BEGIN 
FOR i:=1 TO length (s) DO 
IF s[i] IN [‘A‘..‘z‘ 
sli] := CHR (ORD(s[i])+32) 


Damit sind die wichtigsten BASIC- 
Funktionen auch in HiSoft-Pascal 
vorhanden. War doch wirklich nicht 
so schwer, oder? Zum Schluß der 
heutigen Folge sei Ihnen noch eine 
Prozedur vorgestellt, welche die 
Buchstaben eines Strings alphabe- 
tisch sortiert. Vielleicht schreiben 
Sie zu Übungszwecken ja ein Wort- 
ratespiel, in den Sie diese Prozedur 
verwenden? 
PROCEDURE alphasort (VAR s 
: string); 
VAR 

1,1: INTEGER; 

sort : BOOLEAN; 

h: CHAR; 


BEGIN 
: = length (s); 
REPEAT 
sort := TRUE; 
FOR ı:=1TO1-1DO 
IF s[it1]J<sli] 
THEN 
BEGIN 
h := slit1]; 
s[lit1] := sli]; 
s[i] :=h; 
sort := FALSE 
END 
UNTIL sort 
END; 
Das hier angewandte Ripplesort-Ver- 
fahren kennen Sie bereits aus der 
„Einführung in HiSoft-Pascal‘. Im 
nächsten Kapitel wollen wir uns mit 
einem anderen Sortierverfahren be- 
schäftigen, welches das derzeit 
schnellste sein dürfte. Nicht umsonst 
hat sein Erfinder es „quicksort“ 
genannt. 


QUICKSORT: SORTIEREN 
IM EILTEMPO 


Das Finden von schnellen Sortier- 
verfahren war schon immer eine 
komplizierte Angelegenheit, vor 
allem wenn es darum ging, die 
Schnelligkeit des Verfahrens auch 
zu beweisen. Ein paar Probeläufe 
genügen da keineswegs. Und je 
komplizierter der Algorithmus, 
desto schwieriger ist auch der ma- 
thematische Beweis. Einen Hauch 
dieser Problematik sollen Sie in die- 
sem Kapitel erahnen können. 


Wir wollen — so die Aufgaben- 
stellung — ein ARRAY beliebiger 
Datentypen (INTEGER, REAL 
oder CHAR) in aufsteigender Rei- 
henfolge sortieren. Die Länge des 
Arrays soll in der Konstanten max- 
index festgelegt sein. Für den Typ 
der Feldelemente vereinbaren wir 
die neue Bezeichnung _‚‚feldele- 
ment‘. Wenn sich die Array-Länge 
oder der Array-Inhalt später ändern 
sollen, muß dann nur noch der 
Programmkopf geändert werden, 
welcher lautet: 

PROGRAM liste; 

CONST 


maxindex = 2ß; 


TYPE 
feldelement = INTEGER; 
feld= ARRAY [1..maxindex ] 
OF feldelement; 


VAR 
namen: feld; 


Bevor sortiert werden kann, benöti- 
gen wir eine Prozedur, die das Ein- 
lesen der Zahlen (Zeichen, Strings 
— je nach dem Typ von ‚‚feldele- 
ment‘) übernimmt. Sie ist schnell 
geschrieben: 

PROCEDUERE liesein (VAR f: 


feld); 
VAR 
1: INTEGER; 
BEGIN 
PAGE; 


WRITELN (‚Bitte geben Sie 
‘*‚maxindex,‘Werte ein:‘); 
FOR i := 1 TO maxindex DO 
BEGIN 
READLN; READ (fli]) 
END 
END; 


Und nun zum Sortieren. Wir wollen 
den wohl schnellsten Algorithmus 
verwenden, der von seinem Erfin- 
der, C.A.R. Hoare, nicht umsonst 
„Quicksort‘‘ genannt wurde. Er er- 
fordert jedoch einige Vorüberlegun- 
gen, die wir uns anhand der Zahlen- 
folge 
8-6-4-7-5—-3—-2—1—-9 

veranschaulichen wollen. Zunächst 
wird die Mitte der Folge bestimmt, 
in diesem Fall also das fünfte Ele- 
ment, welches zufällig auch den 
Wert 5 hat. Zwei Zeigervariable 
„hlinks“ und „hrechts‘ zählen nun 
von links bzw. rechts her solange 
durch, bis eine Zahl gefunden wird, 
die größer (von links her) bzw. 
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kleiner (von rechts her) als das mitt- 
lere Element ist. Bei unserem Bei- 
spiel würde hlinks also bereits bei 
der ersten Zahl, der 8, stoppen; 
hrechts würde auf die 1 zeigen. 
Diese beiden Zahlen werden ver- 
tauscht, so daß die neue Folge 
1-6-4-7—-5—-3—2-8—9 

entsteht. Dieses Verfahren wird 
fortgesetzt, bis die Zeigervariablen 
sich ‚„überkreizt‘““ haben, hrechts 
also auf eine kleinere Array-Posi- 
tion weist als hlinks. Abb. 2.1. ver- 
deutlicht dieses Verfahren. 

Was gewinnt man dadurch? Diese 
Vorgehensweise liefert unsortierte 
Teillisten links und rechts vom Mit- 
telwert. („Mittelwert‘“ ist hier im 
Sinne von ‚mittleres Element‘ ver- 
wendet und darf nicht etwa als 
„Durchschnitt“ verstanden werden!) 
Nur enthält die linke Teilliste sämt- 
liche Werte, die unter dem Mittel- 
wert liegen, die rechte enthält aus- 
schließlich Werte über dem Mittel- 
wert. Das System ist nun recht ein- 
fach: Die beiden Teillisten werden 
erneut sortiert. Wenn in solch einer 
linken Teilliste ‚„‚hrechts‘ den Wert 
von „links“, d.h. der Zeiger den 
linken Rand erreicht hat, ist sie sor- 
tiert. Dasselbe gilt für „hlinks‘‘ und 
„rechts“ in rechten Teillisten. 

Das einzige Problem besteht nun 
noch darin, die Teillisten wieder 
richtig zusammenzusetzen, um eine 
sortierte Gesamtliste zu erhalten. 
Die Lösung liegt in Pascal auf der 
Hand: Man verwendet dieselbe Pro- 
zedur zum Sortieren der linken 
bzw. rechten Teillisten. Diese rekur- 
sive Methode ist eine der elegante- 
sten. Sie werden im Laufe dieser 
Serie noch oft mit Rekursion zu 
tun bekommen. 

Nach den obigen Ausführungen 
ist es nun fast schon einfach, die 
Quicksort-Prozedur zu schreiben: 


PROCEDURE sortiere (links, 
rechts : INTEGER; 
VAR f: feld) ; [quicksort] 
VAR 
hlinks, hrechts : INTEGER; 
mittelement, help: feldele- 
ment; 
BEGIN 
hlinks :=links; hrechts :=rechts; 
mittelement := f [(linkstrechts) 
DIV 2]; 


REPEAT (bis Mitte der Teil- 
liste erreicht) 

WHILE f[hlinks] < mittel- 
element DO 
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hlinks := SUCC (hlinks): 
(nach rechts gehen) 
WHILE f£[hrechts] > mittel- 
ement DO 
hrechts :=PRED (hrechts); 
(nach links gehen) 
IF hlinks < = hrechts (Zeiger 
noch nicht „überkreuzt‘‘) 
THEN 
BEGIN (austauschen) 
help := f[hlinks]; 
f[hlinks] := f[hrechts]; 
f[hrechts] := help; 
hlinks := SUCC (hlinks); 
hrechts := PRED (hrechts) 
END 
UNTIL hrechts < hlinks; 
IF links < hrechts 
THEN 
sortiere (links,hrechts,f); 
IF rechts> hlinks 
THEN 
sortiere (hlinks,rechts,f) 
(neue Teillisten sortieren) 
END; 


Ausgabeprozedur und Hauptpro- 
gramm sind jetzt nur noch Form- 
sache: 
PROCEDURE gibaus (f : feld); 
VAR 
i: INTEGER; 
BEGIN 
PAGE; 
WRITELN (‘Sortierte Liste:‘); 
FOR i := 1 TO maxindex DO 
WRITELN (fli]) 
END; 


BEGIN Hauptprogramm 
liesein (namen); 
sortiere (l,maxindex,namen); 
gibaus (namen) 

END. 


Jetzt wäre es an der Zeit, sich durch 
ein Experiment davon zu überzeu- 
gen, wie schnell Quicksort ist. 
Selbst wenn Sie nach der Lektüre 
dieser bzw. der Vorgänger-Serie des 
Namens schon überdrüssig sind: 
Ein Vergleich mit Ripplesort lohnt 
sich. Bei eifrigem Experimentieren 
werden Sie herausfinden, daß Quick- 
sort eine Abneigung gegen den tri- 
vialen Fall hat; dagegen also, daß 
die vorliegende Liste bereits sortiert 
ist. In diesem Fall (aber praktisch 
nur in diesem!) ist Ripplesort noch 
schneller. 

Zum Abschluß dieser Folge soll 
noch — ohne große mathematische 
Bitte lesen Sie weiter auf Seite 87 
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Vielleicht gehören Sie zu den Käufern des Amstrad/ 
Schneiders, die ein wenig über die Lieferung von DOS 
Plus und (!) MS-DOS gestaunt haben. In diesem Fall 
ist Ihnen wahrscheinlich einiges über die Entstehungs- 
geschichte dieser Betriebssysteme und der Konkur- 
renz der maßgeblichen Softwarehäuser bekannt. Allen 
anderen sei die Geschichte schnell erzählt, weil sich 
damit Verbindungen zu IBM, PC-DOS oder CP/M 


offenbaren. 


Vor knapp sieben Jah- 
ren, als IBM sich an- 
schickte, den PC auf den 
Markt zu bringen, gab es 
nur das von Digital Re- 
search (DR) entwickelte 
CP/M. IBM verhandelte 
also mit DR wegen der 
Entwicklung eines Be- 
triebssystemes auf der 
Basis der 16 Bit Prozes- 
soren. Gleichzeitig war 
man mit Microsoft im 
Gespräch, die den für den 
PC notwendigen BASIC- 
Interpreter erstellen soll- 
ten. Ob Microsoft nun 
bessere Kaufleute hatte 
oder ob es von den Digi- 
tal Research-Fehlern pro- 
fitierte, mag unbekannt 
bleiben. Auf jeden Fall 
war die damals kleine 
Softwarefirma clever ge- 
nug, die Rechte an einem 
„86-DOS“ zu erwerben 
und dieses System, natür- 
lich wesentlich verbessert, 
den IBM-Verantwortli- 
chen als PC-DOS zu ver- 
kaufen. IBM vertreibt das 
Disketten-Operations-Sy- 
stem seitdem mit immer 
besseren Versionen und 
Microsoft kann mit dem 
jeweils passenden MS- 
DOS den Markt der Kom- 
patiblen beliefern. 

Verlierer bei dieser Ge- 
schichte war Digital Re- 
search, die zwar ıhr CP/M 


für 8 Bit Prozessoren 
ständig verbesserten, mit 
der 16 Bit Version, dem 
CP/M-86, jedoch nichts 
gegen den nunmehr ent- 
standenen Industriestan- 
dard ausrichten konnten. 
Mit DOS Plus scheint der 


goldene Mittelweg gefun- - 


den. Das Softwarehaus 
bleibt CP/M-86 treu, ver- 
trägt sich jedoch auch 
mit MS-DOS und folgt 
der besseren Einsicht we- 
gen dem IBM-Pfad. 

Daß, wie im Falle 
Schneider PC, von beiden 
Versionen jeweils die neu- 
esten Varianten vorliegen, 
ist bei einem PC dieser 
Preisklasse schon bemer- 
kenswert. Wer aber so 
viel über Kompatibilität 
hört, wird sich fragen, 
wozu die Doppellieferung 
und wo der Unterschied 
liegt. Die Lieferung von 
MS-DOS und DOS Plus 
ermöglicht dem Anwen- 
der sowohl die Vernet- 
zung als auch Multitas- 
king. Während nämlich in 
der neuesten MS-DOS 
Version dem Computer- 
verbund nichts mehr im 
Wege steht, hapert es bei 
den Multitaskingfähigkei- 
ten, was wiederum DOS 
Plus zuwege bringt, das 
zudem mit GEM zusam- 
menarbeitet. 


So, nun geht es richtig 
los. Dieser Kurs will, das 
haben Sie sicher gemerkt, 
Ihnen nicht noch einmal 
das Handbuch vorkauen. 
Die handwerklichen Erle- 
digungen, z.B. bei einer 


Diskettenkopie 
COPY) entnehmen Sie 
bitte dem Handbuch. 
Der DOS-Kurs soll das 
nötige Hintergrundwis- 


(DISK- 
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MS-DOS-DAS MACHTIGE 
BETRIEBS-SYSTEM IM 
SCHNEIDER PC 1512 


sen vermitteln, von Fall 
zu Fall ein paar Tips und 
Tricks verraten und an- 
sonsten da beginnen, wo 
das Manual aufhört. 
Wenn Sie dabei Lust zum 
Experimentieren bekom- 
men — umso besser. Be- 
denken sollten Sie dabei 
aber, daß Sie in jedem 
Fall mit einer Kopie der 
DOS-Disketten arbeiten 


müssen. Das Original ge- 
hört in sichere Entfernung 
von magnetischer Strah- 
lung, wie starken Netz- 
teilen oder Lautsprecher- 
boxen. Für heute gilt 
auch, daß hier DOS Plus 
und MS-DOS gleichzuset- 


zen ist. Sollten im Laufe 


des Kurses gravierende 
Unterschiede auftreten, 
wird dies vermerkt. 

Das Betriebssystem 
wird, weil unbedingt not- 
wendig, beim Einschalten 
des Computers mit einer 
BOOT-Routine von der 
Diskette in den Speicher 
geladen. Sollte die falsche 
:oder gar keine Diskette 
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im Laufwerk sein, er- 
scheint eine Fehlermel- 
dung. Korrigieren Sie den 
Mißstand und setzen Sie 
den PC durch die Ta- 
stenkömbination CTRL- 
ALT-DEL zurück. Dies 
bewirkt einen ,‚‚Warm- 


start‘ und die BOOT- 
Routine wird aufs neue 
aktiv. 

Beim automatischen 
Einlesen des Betriebssy- 
stemes ist zuerst der so- 


genannte „Kern“ unter 
Berücksichtigung der 
CONFIG.SYS-Sateı an 


der Reihe. Der Kern des 
DOS besteht aus den Da- 
teien IOD.SYS und MSDOS. 


- weiterer 


SYS. Letztere verwaltet 
das Diskettenverzeichnis 
(und/oder Festplatte) 
und sendet oder emp- 
fängt Zeichen von der 
Tastatur, dem Monitor 
oder den Schnittstellen. 
Außerdem behandelt 
MSDOS.SYS auch die Sy- 
stemaufrufe, die in Pro- 
grammen vorkommen 
können. Bei derartig ein- 
gegrenztem Aufgabenbe- 
reich ist MS-DOS natür- 
lich unabhängig von der 
jeweiligen Hardware. An- 
ders dagegen die Datei 
IO.SYS  (MSBIO.SYS), 
die zum Teil auch in ei- 
nem Eprom untergebracht 
sein kann. Ihre Aufgabe 
ist im wesentlichen das 
Lesen oder Schreiben von 
Daten auf Diskette (Fest- 
platte). 

Die eben beschriebe- 
nen Systemdateien wer- 
den Sie auf der DOS 
Diskette vergeblich su- 


‚chen. Es handelt sich um 


versteckte (Hidden) Files, 
die nicht im Directory 
aufgelistet werden. Dieser 
Umstand muß auch beim 
Formatieren bedacht 
werden, auf das wir beim 
nächsten Mal zu sprechen 
kommen. 

Sichtbar sind jedoch 
die Dateien CONFIG.SYS 
(Konfiguration) und 
COMMAND.COM (Kom- 
mandointerpreter). CON- 
FIG.SYS wurde bereits 
beim Einlesen des Ker- 
nes berücksichtigt. Es ist 
eine Textdatei, die man 
mit jedem Editor anle- 
gen, bzw. für seine An- 
forderungen anpassen 
kann. Auch dazu später 
mehr, vorerst sei nur ver- 
raten, daß hier das Laden 
Gerätetreiber 
veranlaßt werden kann 
oder statt dem COM- 
MAND.COM. Interpreter 
eine andere Kommando- 
datei eingelesen wird. 


Diese COMMAND. 
COM Dateı wird norma- 
lerweise standardmäßig 


nach dem Kerm geladen. 
Der Kommandointerpre- 
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ter ist das Verbindungs- 
glied zwischen Anwender 
und Betriebssystem. Er 
vergleicht, ob die Einga- 
be einem Befehl ent- 
spricht und veranlaßt die 
Ausführung, bzw. gibt an- 
dernfalls eine Fehlermel- 
dung aus und wartet auf 
neue Eingaben. 

Das DOS ist damit ge- 
laden und sucht zualler- 
erst einmal eine Datei na- 
mens AUTOEXEC.BAT. 
Die Folge des Komman- 
dos in dieser Datei wer- 
den automatisch gestartet 
(Autoexecution) und ab- 
gearbeitet. Vom Einstel- 
len der Uhr bis zum Start 
eines Anwenderpro- 
gramms kann hier alles 
untergebracht werden. Es 
handelt sich dabei um 
eine Stapelverarbeitungs- 
datei, auch BATCH-FILE 
(BAT) genannt. Hierbei 
arbeitet der Computer 
die Programme wie von 
einem Buchstapel ab, 
ohne daß weitere Einga- 


ben notwendig werden. 


INTERPRETER 


SPART SPEICHER 


Gehen wir 
davon aus, daß keine 
AUOEXEC.BAT Datei 
vorhanden war oder diese 
bereits abgearbeitet ist, 
dann ist nunmehr das Be- 
triebssystem geladen. Al- 
lerdings wäre es reine 
Platzverschwendung, 
wenn sich das gesamte 
DOS im Speicher breit 
machen würde. Der Kom- 
mandointerpreter unter- 
scheidet deshalb in inter- 
ne Befehle, die er sofort 
ausführen kann, und in 
externe Kommandos, die 
auf der Diskette gespei- 
chert sind und vor der 
Ausführung erst eingela- 
den werden müssen. 


INTERNE BEFEHLE 


BREAK: Festlegen, ob 
CTRL + C zu einer Un- 
terbrechung (BREAK= 
ON) eines Progarmmes 


einmal , 


führt oder nicht (BREAK= 
OFF). 
CHDIR (CD): CHANGE 
DIRECTORY — Wechsel 
des Directorys (betr.: 
Struktur) 
CLS: CLEAR SCREEN 
— Bildschirm löschen 
DATE: Datum anzeigen, 
eventuell eingeben 
DEL (ERASE): File lö- 
schen 
DIRE: Directory aufli- 
sten 
MKDIR (MD): MAKE 
DIR — Directory anlegen 
(betr.: Directorystruktur) 
PATH: Den Suchpfad zu 
einem Unterverzeichnis 
anzeigen lassen, bezie- 
hungsweise den Suchpfad 
eingeben 
RENAME: (REN) Files 
umbenennen 
RMDIR (RD): Directory 
löschen (betr.: Directory- 
struktur) 
TIME: Zeit anzeigen, 
eventuell eingeben 
TYPE: Anzeige einer Da- 
tel 
VERIFY: Vergleich (VE- 
RIFY) von Daten 
VOL: Anzeige des Dis- 
kettenetiketts 

Zu den internen Kom- 
mandos, die hier nicht 
alle aufgezählt sind, gehö- 
ren unter anderem auch 
die Funktionen, die be- 
reits zur Erstellung eines 
AUTOEXEC.BAT Files 
erwähnt wurden. 
Teilweise benötigen die 
Kommandos zusätzliche 
Parameter (etwa die RE- 
NAME-Routine), teilwei- 
se jedoch auch die Lauf- 
werkskennung (A: /B:) 


EXTERNE BEFEHLE 


ASSIGN: Der Name des 
Laufwerkes kann geän- 
dert werden. 

BACKUP: Nur für Fest- 
plattensicherung auf Dis- 
ketten 

DEBUG: Debugger zum 
Testen und Korrigieren 
eines assemblierten Pro- 
ammes 


DISKCOMP: Zwei Dis- 
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ketten können spurweise 
miteinander verglichen 
werden 

DISKOPY: Kopieren ei- 
ner Diskette 

EDLIN: Zeileneditor 
EXE2BIN: Konvertie- 
rungsprogramm: Wandelt 


EXE Dateien in COM Da- 


teien. 

FDISK: Verwalten einer 
Festplatte 
FORMAT: 
rungsprogramm 
LABEL: VOL-Name än- 
dern 

LIB: Verwaltung von Ob- 
jektmodulen 

LINK: Linker 
RECOVER: Überprüft 
Datenträger auf defekte 
Sektoren 

SORT: Sortierprogramm 
SUBSTITUTE: Ersetzt 
den Directorynamen 
durch einen Laufwerks- 
namen. Dadurch können 
auch Programme für älte- 
re MS-DOS-Versionen in 
die Baumstruktur des 
Verzeichnisses eingebun- 
den werden. 

TREE: Ausgabe der 
Baumstruktur eines Da- 
tenträgers 


Formatie- 


DER PROMPTER 


Ebenso wie die voran- 
gegangene Liste sind auch 
hier nur die wichtigsten 
Kommandos aufgezeigt 
worden. Die vollständige 
Aufzählung ist leicht dem 
Directory der DOS Dis- 
kette zu entnehmen. 

Zur Arbeit meldet sich 
DOS mit einem Buch- 
staben gefolgt von einem 
Pfeil. „A>“ ist das 
Prompt-Zeichen des Be- 
triebssystemes. Es besagt, 
daß momentan mit dem 
Laufwerk A gearbeitet 
wird, der Pfeil bedeutet, 
daß auf eine Eingabe ge- 
wartet wird. Laufwerk A 
ist das Default-Laufwerk, 
das standardmäßig ange- 
sprochen wird. Will man 
ohne einen speziellen Be- 
fehl das Laufwerk wech- 
seln, genügt die Eingabe 


von B: (B und Doppel- 
punkt), gefolgt von der 
ENTER-Taste, die beim 
PC 1512 mit einem ge- 
winkelten Pfeil symboli- 
siert wird. Es erscheint 
dann das Prompt B: und 
die weiteren Befehle spre- 
chen das Laufwerk B an. 
Gewöhnen Sie sich aber 
gleich zu Beginn daran, 
mit den Befehlen die 
Laufwerksbezeichnung 
einzugeben. Wenn Ihnen 
das in Fleisch und Blut 
übergegangen ist, vermei- 
den Sie Mißverständnisse 
und arbeiten schneller, 
wie das Beispiel zeigt: 
statt: A>B: (ENTER) 
B>DIR 
besser A > DIR B: (+EN- 
TER) 

Für die Befehle können 
Sie natürlich auch Klein- 
buchstaben eingeben, der 
Abschluß mit Enter ist je- 
doch zwingend und wird 
im weiteren Verlauf des 
DOS-Kurses nicht mehr 
erwähnt. 

Besonders interessant 
sind die externen Befehle, 
die ja für Dienstprogram- 
me stehen und dem An- 
wender eine Menge Ar- 
beit abnehmen. Eine die- 
ser Routinen, DISKCO- 
PY.COM, haben Sie be- 
reits kennengelernt, wenn 
Sie sich nach dem Hand- 
buch eine Sicherheitsko- 
pie angefertigt haben. 
Der Befehl hatte folgen- 
des Format: 

A > DISCOPY A:B: (/1) 

Sie sehen, daß ein ex- 
terner Befehl ohne die 
Extension (.COM) einge- 
geben wird. In der be- 
schriebenen Form besagt 
die Laufwerksbezeich- 
nung, .daß von A nach B 
kopiert wird. In Klam- 
mern, die natürlich nicht 
mit eingegeben werden, 
steht der Befehl, nur eine 
Diskettenseite zu kopie- 
ren. Dies ist eine Option, 
die nur benötigt wird, 
wenn Sie noch im Besitz 
einiger alten DOS-forma- 
tierten (Version 1.xx) 
Disketten wären. Lassen 
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Sie also ‘“/1‘ weg und es 
werden beide Seiten for- 
matiert. Das Kopierpro- 
gramm DISKCOPY.COM 
wird vom Laufwerk A 
eingelesen und gestartet. 
Je nach Laufwerksanzahl 
fordert DOS dann den 
Diskettenwechsel an und 
wartet auf einen Tasten- 
druck. 

Durch die exakte 
Kopie wird auch eine fal- 
sche Formatierung auf 
der Zieldiskette korrigiert. 
Außerdem sind natürlich 
auch die versteckten Files 
IO.SYS und MSDOS.SYS 
auf der Kopie enthalten. 
Hin und wieder kann da- 
bei ein besonderer Nach- 
teil von DISKCOPY auf- 
treten. Zur Erklärung 
muß die Formatierung ei- 
ner Diskette herhalten. 


360 KB PRO 
DISKETTE 


Die kreisförmigen Spu- 
ren (je 40 pro Seite) sind 
standardmäßig in je 9 
Sektoren (8 bei DOS Ver- 
sion 1.xx oder als Option 
bei neuen DOS Varianten) 
unterteilt. Jeder Sektor 
speichert 512 Byte. Zum 
Nachrechnen: 512 Byte * 
9 Sektoren * 40 Spuren 
* 2 Seiten = 368640 By- 
te (360 KByte). Im 
Regelfall haben Dateien 
mehr als 512 Byte und 
werden über mehrere 
Sektoren verteilt. Dateien, 
die oft verändert werden, 
sind dabei unter Umstän- 
den über die ganze Dis- 
kette verstreut. Der Weg 
des Schreib/Lesekopfes 
wird länger, die Lesege- 
schwindigkeit langsamer. 
DISKCOPY.COM kopiert 
diese Streuung, auch 
wenn eine Neuordnung 
einen Geschwindigkeits- 
vorteil bringen würde. 

Derartige Unannehm- 
lichkeiten vermeidet der 
Befehl COPY, den wir zu- 
sammen mit einigen an- 
deren Diskettenbefehlen 
im nächsten Teil bespre- 
chen. 


BÖRSE 


SCHNEIDER 


CA 70 SP + Anw. Progr. für 
CPC. Info-Liste Anf. R. Hoe- 
ger, Friedrichstr. 9, 7317 
Wendlingen 


* DRUCKER für CPC * 


GLP (ähnl. NLQO 401) 398,— 
PANASONIC 1080 555,— 
CITIZEN 120 D 555,— 
CMC-CPA 80 GS 555,— 


INFO anfordern von C.V.T. 
Postf. 2106, 5500 Trier 
CPC 464, Grün, Joy, div 
Programme, Literatur we. 
System-Änd ‚7 Mon.alt, 

5 Mon Garantie VBDM 600,— 
Tel. 02233/45566 

CPC 664 Hard- & Software 
z.B.: Painter II, Mailbox, 
Tank Arcade, V24 Multi 
Port. Info gegen 2,50 DM: 
Ruhr, Montzstr. 28, 

4048 Grevenbroich 


Der Amstrad-Schneider-User- 
Club-Aachen * A.S.U.C.A. * 
Express zum probelesen, 
ASUCA, Zeißstr. 7,5132 
Übach-Palenberg 
SHARPMZ 721 + Datenrec. 
+ Monitor 12° + Drucker 
Interface + Software + Lite- 
ratur 400 DM 

Original 30-Chess von 
Amstrad für Joyce 50 DM 
Tel. 02532/1387 


Verk. CPC 664, Datas. + 
Texpack, Textomat, Datamat, 
30-Chess, Statistic-Star, 

fast alle Schneider Hefte u. 
Sonderhefte auf 3“ eingebau- 
te RS 232 2 Kanal 25 Disket- 
ten + Box. Bücher! Neupreis 
4000,— DM für nur 1500,-—, 
VB Tel. 05141/47723 
Verkaufe Aeustikkoppler 
Dataphon s21d für 290 DM 
incl. allem!, Geipel, Allgäuer 
Str. 108, 8000 München 71 
Tel. 756904 
CPC 464 incl. 3° Laufwerk 
Textprogramm, Compiler und 
reichhaltiger Software und 
Akustikkoppler für 990,— 
Tel. 089/756904, W. Geipel, 
Allgäuerstr. 108, 8000 Mün- 
chen 71 


CPC464 CPC664 CPC6128 
USER! 
Lichtgriffel 
mit Programmen und 
deutscher Anleitung 
nur DM 49,— 
Versand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer 
Postfach 1171S 8458 Sulz- 
bach, Tel. 09661/6592 bis 21h 


DISKETTEN 
je 10 Stück nur 

ab DM 79,00 
3,5 Zoll ab DM 44,00 
5,25 Zoll ab DM 11,95 


INFO von C.V.T. 
Postf. 2106, 5500 Trier 


Verkaufe: Variatus 4512 
prof. Grundmod. CPC 646, 
Speichererw. 512 KB, Floppy: 
Vortex. Bas. VDOS CPM. zus. 
NF-Verst. LS. Vent. Kurz- 
schl. Netzl. div. Handb. u. U. 
100 Progr.: Anw. progr. + 
Spiele z.B. Flugs. WS. Starwr 
Dat. u. Verw.progr., kompl. 
Pr. VHS Tel. 07245/6440 


*%* ** 


** 


3 Zoll 


*%* 


Suche Ersatzbefehl (464) für 
„Clear Input‘! Welcher Druk- 
ker ist für 464 ohne Reue 

zu empfehlen? Welches 
Zubehör dazu nötig? Tel. 
0201/570657 

Progr. für CPC 464 + VDO 
S2.0,z.B.: Lottostatistik 25,— 
Briefmarkenverw. 25,— 
Bundesliga 15,— 
Ausf. Beschr. und weitere An- 
gebote gegen 80 Pf Rückpor- 
to, Peter Eitner, Nußbaum- 
weg 16, 7110 Öhringen 


Schneider 664 und 464!! 
Suche Tauschpartner im 
Raum 4000!!! sowie Kon- 
takt zu weiblichen Usern! 
Mike Andres (23 Jahre), 
Opladenerstr. 20, 4000 Düs- 
seldorf 13 


Matrixdrucker | Okidata ML 
182 1 Jahr alt, Top-Zustand, 
120 Zeichen/s, extrem gutes 
Schriftbild, günstig zu ver- 
kaufen. 

Ulrich Haug, Richenbachstr. 
41, 7340 Geislingen, Tel. 
07331/68268 


Achtung Anfänger! 
Sucht Ihr einen billigen Druk- 
ker? Kaum gebrauchten 
SEIKOSHA GP-100 A für 
läppische DM 80,— zu verkau- 
fen. A. Ertl, Mais 66, 8497 
Neukirchen/Tel. 09947/468 


Der A.S.U.C.A. sucht drin- 
gend preiswerte CPCs und 
Zubehör für seine jüngsten 
Mitglieder. 

A.S.U.C.A., Zeißstr. 7, 5132 
Übach Palenberg, Tel. 02451/ 
4608 


Verkaufe wegen Systemwech- 
sel CPC 464 Color + DD1+ 
Pascal + 2 Spiele auf Kassette 
+5 Data Becker Bücher + 
Lehrbuch mit Kassette Preis 
1650,— DM, Tel. 0711/ 
611251 ab 18.00 Uhr 


Wordstar 3, mit mailmerge, 
Orig + Handbuch für CPC 
6128 zu verk. — 100 DM 
Tel. 0531/86 07 74 

Czop Franz, Ilmweg 8, 3300 
Braunschweig 


Tausche Music-Composer- 
+ Chiller gegen Schachpro- 
gramm für CPC 464 oder 
Verkaufe beide zusammen 
DM 25,— Tel. Köln 221/ 
8302693 Udo 


Wer tauscht Originaldisc. 
Schneider aktiv 10/86 gegen 
Originalkassette Biggles 
verkaufe Sybex Assembler- 
kurs für DM 28,— sowie 
Tascopy für DM 18,— Tel. 
06638/1503 ab 15 Uhr 
Gebr. CPC- Literatur; MH 
0208/38 08 74 


** Aufsteiger-Systemwech- 
sel? ** Suche gut erhaltene 
Hardware rund um den CPC/ 
Joyce Info-Angebote an 

U. Ganter, Haarhofstr. 5, 
5100 Aachen 


Ich gebe meine importierten 
superheißen 3‘ disc von CPC- 
Intim-Soft-International ab. 
30 DM V-Scheck oder bar. 

U. Ganter, Haarhofstr. 5, 
5100 Aachen 


Tausche Software für 464, 
664 6128! Liste gegen 80 Pf! 
Wird innerhalb von 2 Wochen 
erledigt! Andreas Ludwig, 
Wilhelmstr. 19, D-6501 Bu- 
denheim 


Ich tausche Spielprogramme 
f. CPC 6128 auf 3” Disk. 
Liste gegen Briefmarke (0,80 
DM). Ferner tippe ich auch 
Ihre Programme ab (Angebo- 
te machen). 

Marlies Kusian, Finsterheck- 
str. 22, 6580 Idar-Oberstein 1 


Tausche Programme für 664. 
Joachim Eibisch, Birkenstr.16, 


8068 Pfaffenhofen 


EERERE 


c/o. GERT SEIDEL Sport platzstr.i2 


CPC MASTA 
‚0 79. - 


Varianz, Varlanzanal' 
_wertung (Balk 


3552 Wetter 


Malhomatische. Statısuun (mw Signifikanz, Korreiation. 


yso usw.) mil graphischer Aus 
rapkik, Regressio gr. 34 Balken) ; 


ICPC 177 TIDA Zu 
12 II. - 


Postgiro: 364 /1/ 604 krm. 


Versuche - und Werterlassung. 


EPC AALKULATION & GRAPHIK 


latlonsblatt. Graphische Auswertung der bearbelteien 
io 79. - -_ 2 EI. — Tabelle durch d - Diagramm, Balkengraphik, 


200 Zellen, 7 Spalten Kalku- | 


Kreisgr. 


HANDLGR 
BıTTe naLoem 
<S 


2 98. - c sI.- 


17727 MOME MANAGER 
kalender. Einfache Bed 
täglichen Kleinkram (Konto, 


Bein "Datei und Termin, 


| 
| 


Adıassen, _@eburtstage) 


| CPC DISAV 
;? 59.- 7 #8. - 


Programmdatel bringt Übersicht In Ihre Dieketion - 
sammlung. Komiortable Eingabemaske und Such - 
routinen. Bearbeitung des Direelorys mglich. 


ee FUM & VIDEODATEI er vi Trr na 
be . 
“, 2 53.-C4#.- s Ist die Benutzung auch beim Computer 


lalon garanı 


Weise. Durch die Eingabemaske und die 


Verwaltung Ihrer Videoka 


tert. ! 


CPC MUSIKDATEI 


Boquome Eingabomasken mit vorformulier - | 


ton Standarddaten die ergänzt werden konnen. Such | 
2 99. - c II. — bedingungen konnen vorknupfi werden. 


J 


ı 


Mittelwert (Arltkm. +Log.), Mw. 


Mass 
-t Test's bei 


gie 


Fehler, Vertrauensbereich, Median, 
Quartilabstand, Varlanz, Varlatlonskoeffizient, Standardabweichung, 


und Rangkorrelalion, Signifikanzen (P 
korrellerenden Proben, 


x 1% 0.11%) 
Korrelationen, Mittelwert 


und nach FERGUSON, Varianzanalyse, Multiple range Test, Graphik. 
3d Diagramme (Saule + Kurve), Balkengraphik, Regressionsgerade 


uvm. (info anfordern) 


nur Diskette 


139. - 


Verkaufe CPC 464 mit DDI, 
Vortex SP320, F1-X Lauf- 
werk, Maus-Drucker Star 
Gemini mit Literatur (ca. 

15 Bücher) sowie sehr viel 
Software wie MP, WS, dBase, 
Turbo Pascal, Assembler, 
Cobol etc. für 2500,— DM. 
Willi Lethert 02254/7124 


CHION — Dateiverwaltungs- 
programm mit frei definier- 
barer Maske. Das Programm 
ist nicht geschützt und ‚Share 
Ware‘. Diskette + Anl. nur 
20 DM im Schein + 2,50 DM 
Porto (Briefm) bei: Thomas 
Naumann, Bücherstr. 13, 
2300 Kiell 


Verk. 1 x fuer CPC-6128 
origi. dBase II fuer 150 DM. 
(neu) Tel. ab 18 Uhr, 
02325/50947 


Dank der Schneider-aktiv 
8/86 habe ich nun einen 
super Userclub gefunden. 
Ich kann den A.S.U.C.A. nur 
wärmstens weiterempfehlen. 
Kurt Hofmann, Aachen 


Verkaufe Computer persön- 
lich Hefte 21/82 bis 26/85 
für 150 DM VHB 

Thomas Humburg; Thüler- 
str. 33, 2908 Friesoythe 
Tel. 04491/1304 


Drucker M1009 zu verkaufen 
Incl. Traktoraufsatz für 
Endlospapier (Brother) nur 
370,— DM (ohne Kabel) 
Norbert Sadowski, Buchholz- 
str. 39, 6793 Bruchmühlbach- 
Miesau 2, Tel. 06372/5768 
nach 16.30 Uhr 


Programme aus Eigenentwick- 
lung für alle CPC’s bei: 
Friedrich Neuper, 8473 
Pfreimd, Postfach 72, Einfach 
Gratisinfo anfordern 


50 eigene Programme ab 2,— 
DM für CPC. Liste anfordern 
R. Höger, Friedrichstr. 9, 
7317 Wendlingen 


Verkaufe Schneider CPC 664 
mit Grünmonitor, Drucker 
DMP 2000, den Programmen 
TEXTOMAT, DATAMAT, 
PROFI PAINTER, jeweils 
mit Sicherheitskopien, über 
20 Disketten mit einer Reihe 
eigener Programme sowie alle 
wichtigen DATA Becker Bü- 
cher zum CPC neuwertig für 
zusammen DM 1.500 (VB). 
Telefon 02449/7672. 


Handbuch für Datenfernüber- 
tragung mit vielen Tricks 
gegen Unkosten Info 80 Pf 
Leonhardt, Auf der Reide 39, 
4000 Düsseldorf 


BÖRSE 


Suche Mailbox-Programm 
(CPC 464) Tel. 09152/8373 
Texpack f. SCHNEIDER 464 
mit Handbuch, 4 Wochen alt, 
für DM 120,-— zu verkaufen. 
Tel. 06195/61117 


Gesucht für Schneider CPC 
6123 auf Disk Spiele jeder 
Art für Kinder ab 12 Jahre. 
Klaus Möller, Weltistr. 33, 
8000 München 71, Tel. 
797407. 

Verkaufe 
= NLQ 401 
s Traktor 
= Druckerständer a 
= Lichtgriffel 
= komplett DM 600,— VB 

Tel. 06787/1299 


CPC464 grün 3 Monate alt 
für nur 490,— DM abzugeben 
Tel. 0651/10809 


Programm-Generator für 
BASIC 
EGE, Postfach 83, 
A-6961 Wolfurt 


PR. WERE Pe ir 
NEU IN 5470 ANDERNACH 
Schneider Hard- und Soft- 
ware z.B. 3° Disk nur DM 9,50, 
5,25‘ Disk 10 St. DM 19 95. 
COMPUTER-CORNER, 

Tel. 02632-43119 


Lern- u. Trainingsprogramme: 
Schulfächer, Konzentrations- 
u. Verhaltenstraining Liste 
anfordern: Dr. Kolb, Bergstr. 
34, 6900 Heidelberg, Tel. 
06221/474711 


646/664/6128 Biorhythmus 
Partnervergleich 
plus 1 Seite A4 Kriterien 
TagetGrafik 
vieles mehr!!! 
. Schumacher, Ritterstr. 54, 
2120 Lüneburg, Tel. 04131/ 
49880 


"aaa 


Top-Preise telef. bestellen bei 
0821/91115 M + K Software 
Gunfright 33 DM /S. Fox Strip 
Poker 32 DM / Bomb Jack 

28 DM, Mission Elevator 

34 DM / Cas. 

M + K Software Volker Mayer 
Römerstädterstraße 2a 

8900 Augsburg 22 


COMMODORE 


PEPEETETTELLLLLIIEEEEE N 
* Verkaufe neuwertig: * 
* 1] Commodore Plus 4 * 
* 140,— * 
*] Okimate 20 Farbdrucker* 
% incl. Printset 440,— * 


* Uli Doraszelski, Postfach * 
+ 792 Heidenheim 7 
* Tel. 07321/46664 * 


KA EEK E E k 


%:* SCHWEIZ #* 
Tausch/Kauf/Verkauf von C64/ 
128-Progr.-Anleitungen. Suche 
Tauschpartner für 128-Softwa- 
re. Liste bei D. Winterberg, 
Altbachstr. 12, CH-8305 Diet- 
likon 

Suche für Commodore C64 SX 
Exekutiv 

Progr. in dt. auf Disk., vor al- 
lem Spiele und Lernprogr. 
Schreibt bitte an: R.W. Kot- 
nauer, Murrstr. 2/67/9, A-1220 
Wien 


ACHTUNG - Tausche Super 8 
Filmkamer-13, Fach, Zoom + 
Tonprojektor gegen Drucker 
mögl. MPS 801, 802, 803 oder 
Riteman + F, anschlußfertig 
für C128. D. Rink, Kasta- 
nienstr. 5b, 5560 Wittlich 14, 
Tel. 06571/2552 


%%°*Dixy-Computer- 

Club#&#%*%* Spez. f. den C-64 
+ PC-128 User. Wir bieten 
Freesoft, Magazine, Beratung, 
Hardw., Service usw. Probe- 
disk m. 2 Clubausgaben 10 
DM. Info Gratis! Dixy-Club, 


Stolzeneckstr. 13, 6800 Mann-: 


heim 81 


C-16 + 64 K Besitzer sucht 
Software. Ang. an W. Duggen, 
Stettiner Pl. 8, 2300 Kiel 17 


Probleme mit Ihren Cass. Hier 
kommt die Lösung. Archivie- 
ren Sie Ihre Musikcass. per 
Progr. PC 128, 116 + 64 K C-16 
plus 4 Disk. + Handb. für 35 
DM. T. Gerards, Beiersfeld 4, 
5190 Stolberg 


Suche Floppy 1541 + Modem 
+ Software. M. Erdt, Flieder- 
weg 4, 4100 Duisburg 17, Tel. 
02136/1823 


HI-80 (Epson-Plotter)-User 
Kontakt/Programmaustausch 
gesucht. Auer, Spessartstr. 1, 
6987 Külsheim, 09345/6373 
Welcher Computer-Freak 
verk. mir selbstgeschriebene 
Programme jeder Art? Suche 
auch gebrauchten CPC + Mo- 
nitor. Schreibt an: Anne 
Kubiki, Sebastianstr. 6, 
8315 Geisenhausen 


Biete für C64: Orig. Softw. 
(Cass). Für Plus/4: Grafik- 
progr. (Disk). Suche: Progr.f. 
Plus/4 (Disk), Listings. M. Ju- 
stin, Zi. 205, Hans-Sachs-Str. 
10, 5000 Köln 41, Tel. 0221/ 
402682 


Suche Bauanleitung einer 64k- 
Speichererw. f. C16. H.P. 
Tschan, Hauptstr. 93a, 7590 
Achern 
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Verkaufe: Turbo-Pascal für 
Commodore 128. Orig. Disk. 
+ Handb. (neu 198 DM jetzt 


150 DM). Wiesemann 
Druckerinterface für C64/128 
(neu 199 


DM jetzt 120 DM). Diverse 
Lit. f. C64. Tel. 030/8327624 


Suche Mitglieder für den KI- 
BU free Software Club. Info 
bei B. Montag, Königrei- 
cherstr. 35, 2155 Jork. Rück- 
porto beilegen. 


Gut erh. Floppy für C16 ges., 
mögl. im Raum München- 
Augsburg-Starnberg WG. 
Test. Suche auch Drucker (k. 


Thermo), Maus + jede Menge 


Softw., sowie Monitor + evtl. 
Eproms mit TV, DV, u.ä. 
Progr. billist! Tel. 08141/6943 


C-16 Superangebot: Spielpack 
18, 90 + 1, 10 DM, Porto: 1. 
Sherlocks Problem, 2. Horse, 
3. Chatch the Mouse. Lief. nur 
gegen Vorkasse. Best. an H. 
Mühlbacher, Plattenberg 3, 
8221 Waging 


Lehrer sucht für Schüler Disk- 
.Stadtion gebr. aber techn. o.k. 
für Commodore C64, ebenso 
Drucker und Software. G. 
Wanders, Schanzstr. 5, 7888 
Rheinfelden 8, Tel. 07623/5395 


SX-64 gesucht! Suche dringend 
einen SX-64. Er sollte mögl. 
nicht def. sein. Wer kann mir 
helfen oder kennt jemand, der 
mir helfen kann. Für eine Ver- 
mittlung gibt es eine Beloh- 
nung. Tel. 0621/874635 ab 19 
Uhr. 


VC-20: Verkauf VC-20 + 
32kB-Modul + Schachmodul + 
Softw. VB 250 DM. Th. Rein- 
hold, Hangweg 8, 7102 Gell- 
mersbach 


Tausche: 7 Jahrgänge dt. 
Aquarien-Zeitschr., 4 als Buch 
geb. gegen Modulkarten oder 
Steckplatzerw. f. C64. K. Koh- 
ler, Ulmenweg 6, 7074 Mög- 
glingen 


HALLO #*% Der Computer- 
club Achim sucht noch Mitglie- 
der! Wir arbeiten mit dem 
Commodore C16/116/p4! Wir 
suchen Mitglieder von überall. 
PS. Es gibt keinen Clubbeitrag! 
Info bei J. Norman, Pauls- 
bergstr. 19, 2807 Achim 1 


Typenraddrucker, 40 Zisec, 
Einzelblatteinzug, Traktro f. 
Endlospapier, Centronics Pa- 
ralellschn., neu f. 1080 DM zu 
verk. Tel. 07053/7618 abends 
(gestochen scharfes Schriftbild) 


Spielautomaten auf Ihrem C16/ 
116! 

Alle möglichen Arten von 
Spielautomaten sowie Tips u. 
Tricks für den C16. Info bei 
Werner Niedermeier, Al- 
ramstr. 19, 8000 München 70, 
Tel. 089/764067 


Dolphindos 2.0, der Speeder 
für VC-1541 mit C64 und C128 
in 128- und CP/M-Mode! 202 
Blocks in Ssec.laden und saven 
(Test in 64er 5186). Verkaufe 2 
St. kpl. mit Anleitung und Dol- 
phincopy: je 130 DM. Tel. 
0251/277300 


VC 20! - Tausche und verkaufe 
VC 20-Software (GV-32k) 
auch Modulprogr. Besonders 
interessiert an Software für 16K 
bzw. für 32 K und an Modul- 
progr. F. Ludwig, Keltenstr. 
48, 6630 Saarlouis 2 


128/64 *%* Wegen Computer- 
aufgabe Abgabe der ges. Soft- 
ware. Liste kostenl. H. Gurk- 
lies, Postf.110224, 4100 Duis- 
burg 11 


Suche ständig Software für PC- 
128, in allen drei Modis, aller 
Art (Spiele, Profipgr. Liste an 
U. Maas, Westwall 18, 4150 
Krefeld 1 


*  C-128 
gramm * 
Ein Superprogr. vom C-128- 
Club. Int. werden Sie C-128- 
Grafik-Profi!!. So lernen Sie 
ganz leicht, Profi-Grafiken zu 
erstellen. L. Blumenhofer, 
Dorstenerstr. 31, 4350 Reck- 
linghausen. Disk 10 DM 


128-Software + C64-Software 
zu verk. Besitze alle Rechte. 
Verk. Games + Utilities billig 
für beide Modi. Fordert Liste 
gegen 80 Pf. Rückporto bei O. 
Schlapeit, Königsbergerstr. 24, 
2805 Moordeich 


NEU! 128-Software! Verkaufe 
Orig. Games, Untilities f. den 
128 Modus zu günst. Preisen. 
Liste anf. mit Rückporto bei O. 
Ernsting, Melcherstr. 1, 2805 
Stuhr 1 


Verkaufe für VC-20: Neue 
32K-Erw., voll schaltbar + 30 
Superspiele auf C. + VC-20, 
Spielebuch f. ges.Pr. 135 DM. 
Anrufen bei R. Beckmann 
05631/1643 


Suche C-64. Zahle bis 150 DM. 
Tel. 0212/315008 


Suche gebrauchten Plotter 1520 
bis max. 150 DM. Ang. bitte an 
D. Smits, Postf. 1314, 4150 
Krefeld 29. Tet. 02151/735946 


Grafik-Lernpro- 


BÖRSE 


The Yugoslav Cracking Service 
& the Slovene Stonewashing 
Association. Wir haben natür- 
lich alles! C-64, PC-128, PC-10 
und Amiga! Bitte keine Anfän- 
ger! Yugoslav Cracking Servi- 
ce, NA Produ 38, Yu-62391 
Prevalje 


Wer schenkt armen Schüler 
Computer, Floppy oder Spiele? 
(wenn mögl. funktionsfh.) Bit- 
te schreibt an F. Broll, Bachstr. 
12, 4400 Münster 


Tausche 64er Disks aus SH5/ 
86, SH4/86, SH3/85, H12/85 + 
H11/85 gegen andere 64er 
Disks. (Bei SH6/86 mit Demos 
gebe ich 2 Hefte-Disk.). Bitte 
melden D. Arnold, Kirchhei- 
merstr. 15, 7317 Wendlingen 


C116 + 64k + Schreibmaschin- 
entastatur incl. 10er-Block + 
Datasette zu verkaufen 250 
DM. Tel. 07071/52305 


Systemwechsel!!! Alles muß 
weg! Soft- Hardware + Lit. für 
VC 20 + C64. Liste gegen 2x50 
Pf.-Marken. M. Kobrow, 


Bolzstr. 64, 7414 Kornwest- 
heim. Suche Software für 
Joyce! 


C 64 + Abdeckhaube + Joyst. 
+ 60 Progr. auf Disk. kompl. f. 
600 DM. Schachcomputer MK 
3 für 90 DM. Meldet Euch bei 
H. Sams, Heilstättenstr. 137, 
8510 Fürth 

Suche für VC 20 Speichererw. 
(32kB o. 64 kB o. 16kB) kann 
nur ca. 50 DM ausgeben. Suche 
für VC20 ernsthafte Progr. 
(keine Spiele) Ang. an U. 
Schneck, Str. 574, Nr. 22, 1000 
Berlin 47 


C-64: Verk. Orig.-Disk. Mo- 
torsport 64 (Auswertungs- 
progr.) Info 50 Pf. Briefmar- 
ken. G. Demmer, Eichenmark- 
weg 5, 4600 Dortmund 30 


Suche für C-64: Software wie 
JungleHunt, Zaxxon, Raido- 
verM., Popeye, Goonies, Gra- 
fikbuch zum C-64, Superspiele 
selbstg. Adventures u.w.m.s. 
Progr. von Data Becker, steck- 
bare Reset-Taste. Ang. und Li- 
sten an M. Port, Berg 27, 5551 
Veldenz 


Verkaufe #*%* Verkaufe: Ri- 
temann Ct, kaum benutzt, an- 
schlußfertig an C64 für 680 
DM. Tel. 08236/882 ab 18 h 


128/64-Software. Verkaufe 
Org. 128-Software für 64 + 128 
Modi. Rückporto beilegen! O. 
Ernsting, Melcherstr. 1, 2805 
Stuhr 1 


TI9S9/A4A 


TI-99/4A + Interfaces V 24 
und Centronics + Sprach- 
synthi + ca. 20 Kassetten 

mit selbstgeschr. Programmen 
abzugeben. Zusammen VB 
600,— oder einzeln, Alwin 
Ertl, Mais 66, 8497 Neukir- 
chen, Tel. 09947/468 


ACHTUNG! TI-User aufge- 
paßt! Wer bietet mir Orig. TI- 
Erw.box m. Discontr. in ein- 
wandfreiem Zustand im Tausch 
gg. Single-Schallpl.-Sammlung 
d. Jahre 60 - 80 an? » 350 PL. 
Wert »1800 DM. Tel. 0209 
143306 ab 12.00 Uhr 


Suche: TI-Revue (Erstausgabe 
bis Ausgabe einschl. Mai 86). 
Ang. an A. Roider, Fr.-Ebert- 
Str. 36, 6301 Heuchelheim 


ACHTUNG! Neues Action- 
Game aus den USA: Tank 
Scout. Die Superneuheit 86 für 
TI-99/4A + 32k Disk. bei T. 
Opheys, Markgrafenstr. 16, 
4100 Duisburg 11. Infos gg. 80 
Pf.-Marke 


"Verkaufe: Ti-99/4A - 100 DM, 


Ex-Basic -100 DM, Alpiner 20 
DM, Rec. Kabel 10 DM, TI- 
Netzteil vom Vorgänger, Preis 
VHB Comp. Cass. 10St.5 DM. 
Suche: def. TI 99/4A, Erw- 
.Box, Modulexpander, Adv. 
Modul, Moon mine, Miner 
2049, Jungle Hunt, Shamus, Q- 
Bert, u.a. Module. Ang. an F. 
Haage, Rudolfstr. 9, 7460 BL- 
Frommern, Tel. 07433/35189. 


GELEGENHEIT! wg. Sy- 
stemwechsels: TI 99Y/4A-Kon- 
sole techn. O.K. 65 DM, XB 
-Mod. 100 DM, XB II+ 130 
DM, XB-Handb. (dt) 20 DM, 
32k-Erw. (opt.etwas läd.) 90 
DM, kpl. TI-Rev. (auch alle 
Sonderh. + 16 Orig.-Kass.) 150 
DM, Power Joystick 28 DM, 
Mod. Datenverw. u. Anal. 35 
DM, Module (Minus M., Alien 
Add. + Met.Multipl.). zus. 15 
DM, Buch TI-Intern 19 DM, 
TI-Spielen + lernen 12 DM, 
Chip-Progr. 5 DM, PAL-Mod. 
25 DM, MBI-Interf. 40 DM. 
Info tel. 02351/26453 ab 19.00 
Uhr 


Verkaufe meinen Reserve 
TI99/4A m. RS232 und Brother 
EP 22, incl. allen erforderli- 
chen Kabeln. Preisidee: 800,- 
oder GROM-Karte! R. Breyer, 
Alte Schulstr.14, 

4242 Rees 1, Tel. 02851/2711 
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ek Systemwechselk#%* 
Verk. TI99/s4A + PAL-Mod. 
+ Handb. (100.-) RS232- 
Schnittstelle eitl. gesteckt 
(160.-), Ex-Basic (120.-), Ex- 
Basic-Buch (200 S., 20.-), 32k 
Akku-gepuffert (130,-), 14 TI- 
Rev.-Kass. (70.-), 16 TI-Rev.- 
H. (30.-), 32k-Platine unbe- 
stückt (20.-). Einz. oder kompl. 
(550.-). K. Gaisser, 07191/ 
44211 ab 18.00 Uhr 


Verk. f. Ti-I99/4A: 

Orig. Ti-Laufw. 150 DM, Ext. 
RS232Schnittstelle 150 DM, E/ 
A-Handb. engl., Module: 
Hustle, A-Maze-ing. VB. Su- 
che RS232-Karte f. P-Box, 
auch Tausch mögl. W. Thiele, 
Tel. 040/652390 


ACHTUNG!! Suche Pole-Pos. 
f. TI! Suche auch andere Modu- 
le! Tausche auch Progr. A. Pre- 
letzer, Th.Helmstr. 26, A-4523 
Neuzeug 


Gesucht wird ein Progr. zur Er- 
stellung von Spielplänen auf 
dem TI99Y/4A £. 10 - 12 Mann- 
schaften, f. Vor- u. Rückrunde. 
Womspiel nur an freien Hall- 
enterminen stattfinden kann. 
A. Kropp, Hohenzollernstr. 
27, 7141 Möglingen 


Tolle Soft- und Harware zu 
sehr günstigen Preisen gibt es 
im USA-Service des TCBs. In- 
fo 50 Pf. oder Clubheft 3 DM 
anf. TI-Club Baunatal, M. Orf, 
Birkenallee 34, 3507 Baunatal 
1, Tel. 0561/497990 


Verk. Ti9Y/4A + Ext.Basic + 
MBi Interf. + Pal Modul + 4 
Module (Datenerw., Statistik, 
Household, Number Magic) + 
Rec. + ca. 100 Spiele + 5 Bü- 
cher + 2 Joysticks + 2 TI-Rev. 
+ alle Kabel f. nur 399 DM. J. 
Dominicus, Tel. 02102/21931 


Spielmodule Schach (53), Mash 
(35), _Moonsweeper (35), 
Espial (35), Return to P. Isle 
(39), Parsec (29). Kass. Marke- 
ting (15) + TI-Basic (12). Div. 
Zub. Bücher. Tel. 06055/4684 


Verk. TI 99V/4A: 32k-Ext. + 
Rec.Kabel, Ex-Basic II plus + 
Handb. + 5 Module kompl. 400 
DM. Tel. 08861/8846 


Verkaufe: TI 99/4A, 2 Jahre alt 
+ Joyst., -adapter + 70 Bas. 
Progr. + Rec. Kabel + Modul 
120 DM. Ext. Basic + Bücher 
+ 14 TI-Rev. + 120 Ex.B- 
.Progr. 150 DM. zus. 250 DM, 
Tel. 02591/4705 


Suche: f. TI99/4A Bücher + Li- 
stings. A. Preletzer, Th- 
Helmstr. 26, 4523 Neuzeug 


MSX 


Verkaufe 21 Konami-Games 
wie Knightmare, Hyper Sports 
1-3, Kung-Fu 1+2, Tennis, Bo- 
xen, für 1.50 pro Game auf 3,5” 
Disk. Andere Games wie 
Knightlore, Gunfright- A.8 für 
DM 1.--. Alex Moro, Enzen- 
bühlstr. 199, CH-9230 Flawil 


‘Verkaufe: Sony Data-Cartrid- 
ge HBi-55 (4k-RAM) für 30 
DM, sowie ausgebauten Zx81 
(Sinclair) mit viel Zubehör: 60 
PGM-Kass., 10 Bücher, CW/ 
RTTY-Interface mit komf. 
PGM, zum senden & empfan- 
gen über NF. Alles weiter tel. 
0561/18967 


Verkaufe Sony-HB 75D + 5 
ROM-Spile + _CE-TEC 
Schach + Phillips-Databa + 
Databecker-Bücher + Sony 
Cartridge-Paket Preis 500 DM, 
evtl. auch mit Cass. Rec. Anfr. 
tel. 0203/7371111 


Suche MSX Spielprogr. aut 
Cass. Hole in One, Alien 
8.737FS. Ang. an: Joachim 
Landvoigt, Gärtnerstr. 52, 
6600 Saarbrücken, Tel. 0681/ 
584820 


Suche gebr. KONAMI-Modu- 
le: z.B. H. Rally, R. Fighter 
usw. Originalsoftw. auf CC o. 
Disk z.B. A View to a Kill. 
River Raid, Strip Tease usw. 
Ang. schriftl. an: B. Walter, 


Pfortengartenw. 57, 6230 
Frankfurt 80 
MSX Schweiz 
Größte Programmsammlung 


für MSX!! Über 600 Spitzen- 
programme. A. Schlattmann, 
Juarastr. 55, CH-4053 Basel, 
‘Tel. 061/353737, nur Sonntag 
um 12.00 Uhr 


*#ACHTUNG#*ACHTUN- 
G*#ACHTUNG* 

Biete erstklassige Softw. an. 
Spitzenprogr. in MSX-Basic 
(ideal f. Anf.. die programmie- 
ren lernen wollen. Neu!: Ihr 
MSX als Drumcomputer! 

Ph. Gysin, Aeschenvorstadt 
24, CH-4051 Basel 


Tausche MSX-Software auf 
3,5”, Biete über 100 erstkl. 
Progr. Sendet Listen an Th. 
Ochsner, Schwerzgrubstr. 13, 
CH-8903 Birmensdorf 


Verkaufe SVI-738 mit Floppy 
+ CP/M + MSX-DOS + 30 
Spiele + Lit. Stehan Kotthoff, 
Tel. 0291/1200 


BÖRSE 


Verk.: Progr. für MSX-CP. Li- 
ste anf. bei R. Thuli, Ringstr., 
CH-9477 Trübbach 

Verkaufe Philips VG-8235, 
MSX I, 1 Monat alt, orig. 
verp. mit Garantie; mit Home- 
Office MSX-DOS, Designer + 
Lit. + div. Softw. NP. 1590 sFr. 
VP. 1300 sFr. Tel. CH-071/ 
283139 


Müde vom Abtippen? Ich tippe 
gerne für Sie Progr. ein und 
erstelle auch Basic-Progr. nach 
Ihren Vorstellungen für MSX. 
Zuschr. an Peter Lechner, Just- 
gasse 29/22/12, A-1210 Wien 


SOS! Suche dringend ein SVI- 
902 Floppy und/oder eine SVI- 
806 Zeichenkarte. Ang. an: G. 
Hauth, Mozartstr. 9B, 6900 
Heidelberg, Tel. 06221/474594 
(ab 18.00 Uhr) 


#:%£:*Hallo. MSX-Freaks#®#%* 
Habt Ihr Probleme mit Euren 
Programmen? Gebe kostenl. 
Tips u. Hilfen f. Änf. Achtung! 
Wer hat dt. ROM-Listing? R. 
Baschke, Kibtizweg 4, 2987 
Großheide, Tel. 04936/6476, 15 
- 18 Uhr 


Suche RAM-Cartr. (Hitbit) so- 
wie Eggerland Mystery + 
Knightmare. Biete PSS-Kom- 


bi-Pack (Orig.: 5 Arcade) so- . 


wie viele Progr. (MC) auf Cass. 
W. Rui, Paul-Gerhard-Str. 21, 
6690 St. Wendel 8, 

Tel. 06856/1253 


MSX-SVI1-738 Spektra-Video, 
8 Mon. alt zu verkaufen. Tel. 
0541/389664, ab 18 Uhr 


!!! ACHTUNG !!! Suche Kass. 
m. Spiele f. MSX-VG 8000-CP. 
Wer verk. oder schenkt bil- 
ligst??? Schreibt an M. Schrol- 
ler, Wiesengasse 1, A-3130 
Herzogenburg 


Verkauf: Da ich auf MSXII 
umsteige, biete ich von Philips 
den MSX-CP VG 8020, Dis- 
.Stat. VY 0010 + Drucker VW- 
0020, alles neuw. NP 2400 DM 
f. VHB 2000 DM an. M. Je- 
nisch, Tel. 0761/494529 


Software: Tausche viele MS- 
Progr. auf 3,5” Disk. W. West- 
erhuis, Nardinistraat II, NL- 
5654 BJ Eindhoven 


Verk. MSX-Comp. SVI-728, 
Floppy 707 Mon. Taxan Vision 


Datenrek., Bücher, Softw., 
Drucker. Tel. L-00352-77466 
nach 19 Uhr 


Verk. Yashica YC64 Sony 
SDC500, Module + Softw. 
kompl. 300 DM. Tel. 06146/ 
9416 


Verkaufe SVI-328, Expander, 
80-Zeichen, Centronic, 
Laufw., Fortran-Comp., zus. 
900 DM; Monitor 20MHz 140 
DM; Epson RX80/FT 630 DM; 
2%*8Bit-P10, programmierbar, 
für alle Z80-Rechn. 320 DM. 
Tel. 07123/72795 


Tausche MSX-Software. Habe 
über 100 erstkl. Profi-Progr. 
auf Disk. Liste an G. Venzin, 
Halderstr. 44, CH-8908 He- 
dingen 


TCX-5R% HCX-5% FM-Com- 
poser Softw. Hits, Schlager, In- 
strumentals, Evergreens für 
”"CX-Sler”. Gratisliste gegen 
Freiumschl. R. Lueb, Aufm 
Keller 32, 4300 Essen 1 


Int. MSX-Club!! Das ist doch 
was! - Clubzeitung - Info- & 
Programmtausch - Archiv. 
Noch heute eintreten!! Info für 
2 DM, Unkostenbeitrag bei 
Einstein 24, z.Hd.Helge Jans, 
Hohe Luft 18, 3111 Suhlendorf 


*%* HALLO MSX-Freaks #%* 
Verk. Hitbit spottbillig. Sony 


.75D mit Data Cartridge, Sony 


Joystick, 12 Spiele, davon 4 Ko- 
nami. 2 Ultimate usw. + SW. 
Ferns. Wenn gewünscht, NP 
ca. 900 DM, VP 600 DM. J. 
Speth, Tel. 07505/764 


MSX II - MSX II !! Suche Kon- 
takt zu anderen MSX-II-Com- 
puterbesitzern. Habe den VG- 
8235 von Philips. J. Affeldt, 
Juttastr. 19, 1000 Berlin 37 


Verkaufe Sony HitBit HB 75D 
(Jan. 1986).Tel. 0201/782537 
ab 18 Uhr 


Achtung!!! Suche. MSX-User 
im Raum Schleswig. Schreibt 
an Stefan Wartzelberger, 
Schulstr.22, 2387 Böklund 


Suche: Sony oder Philips Data 
Rec. Stefan Theimer, Schwe- 
denstr. 2, 6203 Hochheim 


* Erstelle MSX-Software nach 
Wunsch. Suche - tausche MSX 
+ CP/M-Software (51/4). Su- 
che Floppy oder SVI-738. 
Verk.: 2 Data-Cartr. a. 30 DM, 
1 Mon. (s/w) 75 DM, Schach 30 
DM. 

W. Logemann, Tel. 04403/ 
3106, Reihdamm 42, 2903 Bad 
Zwischenahn 


» MSX-Musiker! Verkaufe SFG 


01, große Tastatur + Voicing 
und Composer Software (Ya- 
mahß C x 5) 650 DM, außer- 
dem Poly 800 mit Flightcase 780 
DM und C-64 350 DM. M. 
Zimmermann, Tel. 071V/ 
244478 
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Software! Neue Spitzengames 
für Ihren MSX-Computer: 
Wargames, Artillerie, Xerxes, 
Formel I. Jetzt zugreifen! Info 
kostenl. Weitere Softw. in 
Entw. Ph. Gysin, Aeschenvor- 
stadt 24, CH-4051 Basel 


Hilfe!!! Suche Fortran Comp. 
+ Mathematikprogr. (Integral, 
Differential, Zeichen von 
Funktionen). Suche ebenfalls 
MSX-Floppy, preisgünstig 
Albert Kubesik, Hoersterholz 
la, 4630 Bochum 5, Tel. 0234/ 
410905 


MSX-Computer-Goldstar F200 
+ Sharp-Recorder + Konami 


‚Modul Ping-Pong + River Raid 


+ Textver. Tasword + Sonder- 
hefte + 2 Joyst- + Handb. 4 
Mon. alt. 295 DM. Wegen 
Hobbyaufgabe..e. H. Thiem, 
Barlachweg 2, 2400 Lübeck 1, 
Tel. 0451/796870 


MSX-Neuling sucht MSX- 
Drucker + Progr. (nur Cass.) 
M. Wern, Ortlohstr. 61, 4350 
Recklinghausen 


Hallo! Verk. 10 org. Konami 
Spiele auf Disk. 3,5” f. 50 sFr 
oder 65 DM. Besitze noch viel 
mehr Spiele !! Schreibt an: D. 
Ammann Vogelherdweg 7, 
CH-9016 St.Gallen 

Tel. CH-071-354834 


Verkaufe günstig org. MSX- 
Spiele: Pitfall-2, Finders Kee- 
ners, Maxima, Chiller, Space 
Walk, River-Raid, Hero, Le 
Mans. (alle auf Cass.). A. Ger- 


* ken, Häherstr. 1b, 2848 Vech- 


ta, 04441/7774 


Tausche MSX-Soft auf 3,5” + 
Kass. Suche Grafik-Adv. Les 
Flies. Wer hat außerdem Kona- 
mi Soccer? Biete je 10 Super- 
spiele + MSX-DOS. Interess. 
bitte an T. Palmer, Münzenhal- 
de 6/1, 7067 Plüderhausen, Tel. 
07181/83772 


Achtung! Verkaufe Sony Hitbit 
+ Rec. + über 30 Progr. (Anw. 
+ Spiele) + Handb. Topzu- 
stand, 7 Mon. NP 800 DM, jetzt 
nur 450 DM. D. Dossow, Ga- 
gelstr. 6, 2840 Diepholz Tel. 
05441/4736 


Suche Tauschpartner f. MSX- 
Progr. auf Kass./Disk. Sendet 
Eure Liste an: Ryke, Prof.-Bu- 
yslaan 72, NL-3741 DD Baar 


Verk. Philips-MSX-Progr- 
‚Sprache Logo auf Data Cartr., 
3 Mon. alt! NP 249 DM jetzt für 
150 DM. W. Dzeick, Wald- 
burgstr. 153a, 7000 Stuttgart 
80,Tel.0711/7353111 


Leicht hat er es sich nicht gemacht, 
und viele dachten: ‚Was der vor hat, 
das geht gar nicht.“ Thomas Vervost, 
Autor des Profi Painter CPC, hatte sich 
ausgerechnet die stärksten Grafik- 
programme als Konkurrenz und Maß- 
Stab ausgesucht. Sein ehrgeiziges Ziel 
Er wollte ein Programm schreiben, 
das eigentlich unmöglich ist - den 
Profi Painter CPC. Einfach zu bedienen 
sollte es sein, schnell sollte es sein, 
flexibel sollte es sein. Kurz, seinen 
großen Vorbildern aus der 32Bit-Welt 
möglichst wenig nachstehen. Nur 
eben auf einem 8Bit-Rechner. Und das 
Ergebnis? „Die Geschwindigkeit und 
die vielen Möglichkeiten, die dem 
Anwender das Arbeiten erleichtern, 
machen den Umgang mit Profi Painter 
CPC zu einem wirklichen Vergnügen“ 
Das schrieb CPC International im Test 
Der ‚Aktuelle Softwaremarkt‘ schloß 
mit dem Fazit: „Der Firma DATA 
BECKER sowie dem Autor des Pro- 
grammes ist nur zu gratulieren.” Den 
einen fasziniert die Einfachheit der 
Bedienung über Symbole wie Bleistift, 
Farbeimer, Lineal oder Sprühdose, 
den anderen die Leistungsfähigkeit, 
die das Programm bietet: 
e Pinsel mit verschiedenen Strich- 
stärken 
e Sprühdosenfunktion für Farben und 
Muster 
e Ausschneiden und Verschieben 
beliebiger Bildausschnitte 
@ Invertieren, Rotieren, horizontales 
und vertikales Drehen von Objekten 
@ optionale Rasterunterlegung 
@ problemloses Zeichnen von Geraden, 
Rechtecken, Kreisen, Ovalen usw 


PROFI PAINTER CPC DM 99,- 


Dazu kommt das ausführliche deut- 
sche Handbuch, das leichtverständlich 
in den Umgang mit dem Programm 
einführt 

Nur eine Frage blieb bei den Profi- 
Painter-Besitzern dennoch offen: ‚Wie 
hat Thomas Vervost das gemacht?” 
Die Antwort darauf gibt er selbst: mit 
dem großen Grafik-Buch zum CPC. 
Zusammen mit Jürgen Steigers, dem 


Co-Autor von 6128 Intern, fand sich ein 
Top-Team in Sachen Schneider-Grafik: 
‚Wir wollten das Schneider-Grafik-Buch 
schlechthin machen. Ein Buch, in dem 
Profis Neues lernen und das aus Ein- 
steigern Profis macht.” Aus diesem 
Anspruch ergibt sich schon fast die 
Gliederung. Der erste Teil widmet sich 
ausschließlich der Grafikprogrammie- 
rung in BASIC. Autoren und Leser 
entwickeln gemeinsam ein einfaches 
Malprogramm. Auf diese Weise erhält 
man nicht nur ein nützliches Utility, 
sondern es werden wichtige Grund- 
lagen vermittelt. Dann kommt die 
Spezialitäten-Abteilung: Business- und 
Vektorgrafik sind hier genauso 
Themen wie Peripheriegeräte zum 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 


Thema Grafik. Daß Jürgen Steigers zu 
Recht durch das 6128 Intern als CPC- 
Kenner bekannt wurde und sich auch 
durch seine „Bastelgags“ in der DATA 
WELT als Hardwarespezialist etablierte, 
zeigt sich im nächsten Kapitel. Hier hat | 
er eine gehörige Portion Arbeit gelei- | 
stet: er erklärt nicht nur, wie ein Light- 
pen funktioniert, sondern anhand von 
Schaltplänen und exakten Bauanlei- 
tungen auch gleich, wie man so etwas 
selber bauen kann. Der große Maschi- 
nensprache-Teil schließlich ist ein 
Leckerbissen für Grafik-Freaks und 
solche, die es werden wollen. Neben 
allen Einsprungadressen der Grafikrou- 
tinen finden Sie auch eine komplette 
Abhandlung über GSX. Sie wissen 
nicht, was GSX ist? Keine Sorge, so 
geht es den meisten, denn bisher 
wurde diese grafische System-Erweite- 
rung noch nie wirklich dokumentiert. 
Lassen Sie sich von Thomas Vervost 
und Jürgen Steigers zeigen, wie Sie 
unglaubliche Grafiken auf Ihrem CPC 
zaubern können. Übrigens: Alles, was 
Sie hier gelesen haben, ist natürlich 
nur ein kleiner Ausschnitt dessen, was 
Sie in diesem Buch finden werden. 
Kunststück, bei fast 500 Seiten... 


Das große Grafikbuch zum CPC 
Hardcover, ca.500 Seiten, DM 49,- 
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ENGLAND KONTRA 
DEUTSCHLAND: 
WER GEWINNT? 


Ist ein PC wirklich das richtige Gerät, um darauf zu spielen? Sicher nicht 
bei ordinären Ballerspielen. Für Leute, die gut Englisch können, sind je- 
doch die Adventures von Infocom ein absolutes Muß. Es sei an „Per An- 
halter durch die Galaxis erinnert — ein humorvolles Adventure mit einem 
Wortschatz, der für Infocom Standard ist, an den andere Spiele aber bei 
weitem nicht herankommen. Deshalb wird auch ein PC benötigt, denn un- 


ter 128 K geht da nichts mehr. 


Um Ihnen einen Eindruck von der 
Qualität dieser Adventures zu ver- 
mitteln, hier ein Auszug aus „Wish- 
bringer“: 

>Gib dem Troll die Goldmünze 

Der Troll sieht sich die Goldmünze 
mit verdächtigem Blick an. „Ah!“ 
ruft er aus, während er sie ins 
Mondlicht hält, ‚Das ist eine Fäl- 
schung!“ 

>Gib dem Troll die Blechbüchse 
Die Büchse scheppert, als du sie 
dem Troll überreichst. „Mjam!“ 
ruft er aus, als er das Etikett sieht, 
und öffnet gierig den Deckel... 

Ah! Als er die Büchse öffnet, 
springt eine lebendige Klapper- 
schlange heraus! Ein Schreckens- 
schrei hallt von den Klippen zurück, 
als der Troll das Weite sucht. 


INFOCOM IST NICHT NUR 
GEHEIMNISVOLL -AUCH DER 
HUMOR KOMMT NICHT ZU 
KURZ 


Außer dem Geheimnisvollen be- 
herrscht Infocom auch den Humor, 
z.B. in dem Science-Fiction-Aben- 
teuer „Planetfall‘“, in dem der Ro- 
boter Floyd Sie immer wieder amü- 
sieren wird — und sich in der fol- 
genden Szene selbst köstlich amü- 
siert: „Der Roboter klatscht gegen 
seine Seitenverkleidungen und lacht 
hysterisch, während Öltropfen aus 
seinen Augen strömen.“ 

Die neuesten Infocom-Veröffent- 
lichungen sind „Leather Goddesses 
Of Phobos“, „Moonmist‘ und „Tri- 
nitiy“. „Goddesses of Phobos“ ist 
dabei ein nicht ganz jugendfreies 
Abenteuer, das jedoch in drei Le- 
vels gespielt werden kann, die den 
FSK-Prädikaten ‚ab 12“, „ab 16“ 
und „ab 18“ entsprechen. Auch die 
Pressenotiz zu dem Adventure wur- 
de in drei Seiten eingeteilt. 

„Moonmist“ ist ein Fantasy- 


Abenteuer, dessen Einleitung wie 
folgt lautet: „Als die Wellen unter 
Dir gegen die Felsen schlagen, er- 
hebt sich der Vollmond über einem 
finsteren, drohend erscheinenden 
Turm. Tresyllian Castle, Cornwall — 
tief in der Nacht! Fliegt dort eine 
geisterhafte Gestalt am Turm vor- 
bei, oder spielen Dir deine müden 
Augen einen Streich?” 

Das Spiel „Trinity“ ist das erste 
Programm von Infocom, das auf 
realen Ereignissen basiert: der er- 
sten Atombombenexplosion in New 
Mexico, 1945. Aber auch dieses Ad- 
venture führt den Spieler in eine 
Welt des Geheimnisvollen, in der er 
die Zeit durchqueren und versuchen 
kann, den Lauf der Geschichte zu 
beeinflussen. 

Der Autor von „Wishbringer“ 
und „Trinity“, Brian Moriarty, faßt 
kurz zusammen, was man bei Info- 
com unter „interactive fiction‘ ver- 
steht: „Das Einzigartige an ’inter- 
active fiction’ ist, daß der Leser den 
Fortgang der Geschichte steuern 
kann.“ Infocom-Adventures sind 
nicht einfach irgendwelche Aben- 
teuerspiele, sondern beinahe schon 
Romane, hauptsächlich Fantasy 
und Sience Fiction, oft mit einer 
gehörigen Portion Humor verfaßt, 
mit einem wichtigen Unterschied zu 
Büchern eben: Der Leser identifi- 
ziert sich nicht nur mit dem Hel- 
den, er ist es. 

Die neuesten Infocom-Adven- 
tures kosten zwischen 30 und 50 
Dollar. Nicht unbedingt billig, aber 
auf jeden Fall das Geld wert. Auf 
Grafik wird stets verzichtet — bei 
dem Stil dieser Programme erweist 
sich das aber lediglich als Vorteil. 
Doch, wie gesagt, gut Englisch soll- 
te man schon können. Sonst lohnt 
sich der Kauf nicht. 

Alwin Ertl 
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Nachdem die meisten guten Spiele für 

haben nun auch kontinentale Software 

Computers erkannt. Lobenswert sind 

Firmen und hierunter wieder ERE IN 

& XUNK einen Hit landeten. Das gle. 

TE vor. Bettina und Rolf grü 
ISSION ELEVATOR. 


Daß bei diesem Spiel nicht nur der 
Titel, sondern die ganze Handlung 
in englisch abgefaßt ist, hat sicher 
den Vorteil, die Software ins Aus- 
land exportieren zu können. Ein 
wenig enttäuschend ist es schon, 
daß der deutsche Käufer seine Spra- 
che nicht wert ist, aber er ist’s ja ge- 
wohnt. 

Wenn wenigstens die zugrunde 
liegende Idee eine neue gewesen wä- 
re. Aber nein, wie so oft in letzter 
Zeit geht es wieder einmal darum, 
in mehreren Räumen verschiedene 
Teile eines Codes einzusammeln, 
sich dabei nicht erwischen zu lassen 


A rn 


den CPC bisher aus England kamen, 
firmen den Unterhaltungswert eines 
dabei besonders die französischen 
FORMATIQUE, die mit CRAFTON 
-iche haben nun auch deutsche Pro- 
ßen im Vorspann und präsentieren 


E 


und mit den zusammengepuzzelten 
Zeichen irgendetwas vor der Ver- 
nichtung zu bewahren. Diesmal ist 
es ein Hotel. 

Hin und wieder blitzt trotz der 
öden Ballerei mit Schurken und 
beim stupiden Untersuchen von Tü- 
ren oder Gegenständen der Humor 
des Programmierers auf. Das läßt 
dann ahnen, was alles hätte werden 
können, wenn das Spiel nicht so 
frustrierend wäre. Am überra- 
schendsten noch der Witz mit dem 
im Hotel einquartierten Callgirl, das 
für ihre Dienste satte 100 Dollar 
verlangt. Worin diese bestehen, wird 
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nicht erklärt, schließlich gibt es 
auch bei Computerspielen eine Indi- 
zierungsliste. 

Aber Spaß beseite, wirklich lästig 
sind die Bösewichter, die in wahren 
Heerscharen, ständig schießend, im 
Hotel herumlaufen. Trevor kann zu- 
rückschießen, ohne sich um Muni- 
tionsnachschub zu sorgen oder er 
ruht sich auf einem der Stühle aus. 
Während der Verschnaufpause 
herrscht ein Waffenstillstand, an 
den sich beide Seiten halten, ein- 
schließlich der scheinbar intelligen- 
ten Bombe, die den Countdown an- 
hält. Aber auf diese Weise ist natür- 
lich kein Weiterkommen, und Tre- 
vor muß sich das nächste Stock- 
werk freischießen. 

Über den Stand der dramatischen 
Aktion unterrichtet ein Anzeigefeld 
im unteren Teil des Monitors. Auf 
einen Blick sind der Punktestand, 
die Anzahl der Leben, der Schlüssel- 
vorrat, das Textfeld und der Count- 
down zu übersehen. Die Bewegun- 
gen des smarten Agenten werden 
mit Joystick gesteuert und es ist so- 
gar ein zackiger Karatekampfsprung 
machbar. Um einen Gegenstand zu 
untersuchen, muß Trevor in die 
Knie gehen und dabei eine elegante 
Drehung bewerkstelligen. Nicht im- 
mer, besonders wenn man unter 
Dauerbeschuß steht, gelingen solche 
Balletteinlagen, die Tür bleibt zu. 

Die Grafik von MISSION 
ELEVATOR — und damit ist nicht 
nur die dürftig bekleidete Dame ge- 
meint — hebt das Programm etwas 
aus der Masse heraus. Möbel und 
Gegenstände sind sehr exakt wie- 
dergegeben und in den Gemälden 
an der Flurwand erkennt man sogar 
berühmte Vorbilder, zum Beispiel 
Mona Lisa, wieder. Auch die Schur- 
ken wären ohne Pistole zu erken- 
nen, so finster schau’n sie drein. 
Und schließlich ist der Held — er 
wird Trevor genannt — ein obercoo- 
ler ,„Bogey“‘-Verschnitt, derartig 
gekonnt ist das Sprite program- 
miert. Screens vom Feinsten also, 
obwohl auch hier andere Spiele 
dieser Preisklasse weiter sind und 
das Geschehen in dreidimensionalen 
Räumen ablaufen lassen. 

MISSION ELEVATOR kommt 
ohne Vorgschichte nicht aus: Das 
als Hotel getarnte Hauptquartier 
läßt sich das FBI von einem feindli- 
chen Geheimdienst (wer damit 
wohl gemeint ist?) besetzen. Als 
wüßten diese keinen besseren Ort, 
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plazieren die Finsterlinge im 62. 
Stockwerk eine Bombe. Das FBI 
sendet sofort einen Agenten los, 
der den Stoppcode in Erfahrung 
bringen konnte, bevor er sich ver- 
haften ließ und in den Keller ge- 
schleppt wurde. Soviel zu den Fä- 
higkeiten des FBl. 

Der Auftrag an den Spieler lau- 
tet, in Trevors Rolle zu schlüpfen 
und in die oberste Etage vorzudrin- 
gen. Damit er dort nicht gelangweilt 
auf die Explosion warten muß, em- 
pfiehlt es sich, die versteckten Ein- 
zelteile des Stoppcodes aufzusam- 
meln, die der glücklose Vorgänger 
auf dem Weg zum Keller versteckt 
hat. 62 Stockwerke zu Fuß sind je- 
doch auch per Joystick eine Zumu- 
tung. Deshalb darf Trevor die Auf- 
züge des Gebäudes benutzen, die 
dem Spiel den Namen gaben. Die 
Fahrt geht jedoch nur über maximal 
8 Stockwerke, dann muß ein 
Schlüssel zur Nottür her. 

Schlüsseln, Codeteilen und aus- 
kunftswilligen Personen kann man 
überall begegnen, deshalb gilt es, al- 
le Gegenstände zu untersuchen und 
alle Türen (wenn möglich) zu öff- 
nen. Hinter diesen Türen können 
sich logischerweise auch Gefahren 
verbergen. Eine der harmloseren 
Art kostet hundert Dollar und wur- 
de schon erwähnt. 

Ich weiß nicht recht, wem ich 
das Programm als Fazit des Berich- 
tes empfehlen soll. MISSION 
ELEVATOR hat von jedem Genre 
etwas, nie jedoch in Spitzenquali- 
tät. An Denksport haben etliche 
Adventures mehr zu bieten und je- 
des Defender-Spiel bringt mehr 
Action auf den Monitor. Auf dem 
grafischen Sektor zeigen KNIGHT 
LORE oder CRAFTON & XUNK 
mehr, die ebenso detailverliebt pro- 
grammiert zusätzlich noch in dreidi- 
mensionaler Umgebung spielen. 
Und wenn meine Englischkenntnis- 
se sowieso hervorgekramt werden 
müssen, dann bevorzuge ich doch 
eher gleich den englischen Humor a’ 
la HIRCHHIKER’s GUIDE. 

Aber vielleicht öffnet sich ja hier 
eine Marktlücke für MISSION 
ELEVATOR. Wer also Spiele sucht, 
die von Allem ein bißchen, von 
Nichts aber genug bieten, dem sei 
das Programm an’s Herz gelegt, 
wenn’s denn unbedingt sein muß. 


Gert Seidel 


EN. 
ZEN BR RE (& N 


Das 2,5 kg leichte Gerät (mit Batte- 
rien) sieht auf den ersten Blick wie 
eine Reiseschreibmaschine aus, als 
die man es auch sehr gut benutzen 
kann. Die stabile Hartbox verträgt 
kleine Stöße, und die 5 Pfund kann 
man auf Reisen noch leicht hin- 
nehmen. 

Die Schreibmaschine kann im Di- 
rekt- oder Korrekturmodus betrie- 
ben werden. Das Display umfaßt 
einen 16 Zeichen langen Teil der 
aktuellen Druckzeile. In dieser 
kann man mit Cursor-Tasten hin 
und her gehen. An der aktuellen 
Position können Zeichen gelöscht 
oder eingefügt werden. Mit der 
Reloc-Taste gelangt man sofort wie- 
der an das Ende der Eingabezeile. 
Im Direktmodus können auch Kor- 
rekturen durchgeführt werden, 
allerdings nur,wenn man einen Kor- 
rekturstift besitzt. 

Zusätzlich besitzt der EB 50 auch 
noch einen Taschenrechner, der 
aber nicht einmal einen Speicher 
hat, sondern lediglich die vier 
Grundrechenarten beherrscht. 
Nicht ganz zufriedenstellend ist 
der Blatteinzug. Der automatische 
Einzug funktioniert nur, wenn 

man das Blatt weit genug hinein- 
gesteckt hat, und dann auch meist 
nur schief, so daß man immer 

noch mit der Hand korrigieren 
muß. Versucht man dagegen, das 
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„Was soll so ein billiges Ding schon können” 


‚ werden jetzt wohl 


viele sagen. Ich habe selbst oft genug solche und ähnliche Worte gehört, 
wenn ich anderen von diesem Gerät erzählte. Aber als sie es dann sahen, 


hieß es: 


„Also wo hast du ihn gekauft?‘ Ich rede von dem Colour 


PenGraph EB 50 (so die vollständige Bezeichnung) von der japanischen 
Firma Silver Reed für weniger als 300 DM! 


Colour EB 50 


Blatt selbst mittels der Return- 
Taste einzuziehen, so dreht sich 
die Walze zu langsam und das Pa- 
pier stößt mit der oberen Kante an 
die Abdeckung, was zu kleinen Knik- 
ken im Papier führt. Auch ist nicht 
jede Blattgröße zugelassen. So kön- 
nen z.B. keine Briefumschläge be- 
schriftet werden, da das Papier 
über die gesamte Breite der Walze 
gehen muß, um richtig vorgescho- 
ben zu werden. Die Stechwalze hat 
zudem den Nachteil, daß sie ihren 
Namen etwas zu ernst nimmt, was 
sich in einer regelmäßigen Punkt- 
leiste auf beiden Seiten des Papiers 
äußert. 

Auf mehrere zweite Blicke erkennt 
man dann allmählich die positiven 
Seiten dieses Gerätes. So kann man 
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mit der EB 50 das Wort “Schwarz“ 
nicht nur in selbiger Farbe, son- 
dern auch noch in Rot, Blau oder 
Grün schreiben. Er besitzt nämlich 
4 verschiedenfarbige Kugelkopf- 
stifte, die an einer Drehscheibe be- 
festigt sind. Über Tastendruck kann 
man jederzeit eine neue Farbe aus- 
wählen. 

Darüber hinaus hat man die Wahl 
zwischen verschiedenen Schriftgrö- 
iSen, so dafs man sogar ein grofses 
“5 schreiben kann. Im Large- 
Modus ist es doppelt so großs und 
im Small-Modus nur noch halb so 
grois wie in normaler Schriftgröße. 
Doch damit nicht genug. Neben 
Hervorhebung durch eine andere 
Farbe oder Zeichengrößse besteht 
die Möglichkeit des Schriftartwech- 
sels von normal zu kursiv, und um- 
gekehrt. Außerdem kann jeder Text 


automatisch unterstrichen werden. 
Nicht nur Spielerei ist die Tatsache, 
daß man, im wahrsten Sinne des 
Wortes, alles auf den Kopf stellen 
kann. Der EB 50 kann nämlich 
auch rauf und runter schreiben (wo- 
bei er die einzelnen Zeichen nicht 
nur untereinander schreibt. 

Dort sieht man auch, daß man die 
verschiedenen Möglichkeiten zur 
Schriftgestaltung beliebig mischen 
kann. 

Das alles muß einen noch nicht vom 
Hocker reißen, aber wir sind ja auch 
noch nicht fertig. Wie aus dem Sub- 
String “Graph‘ aus der Gerätebe- 
zeichnung hervorgeht, kann man 
mit der EB 50 nicht nur schreiben, 
sondern auch malen, oder besser ge- 
sagt Grafiken erstellen (“Die Schreib- 
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maschine, mit der man auch Bilder 
malen kann“; Zitat). 

Zwölf fest vorgegebene Funktionen 
bieten alles, was das gestreßte 
Business-Herz eines Managers im 
Flugzeug auf dem Weg zur nächsten 
Konferenz höher schlagen läßt (so- 
weit meine naive Vorstellung vom 
Manager-Dasein). Diese Funktio- 
nen unterteilen sich in vier Gruppen: 


gewöhnliche. 

schraffierte und 
vergleichende Diagramme und 
eine Tabelle. 


Als Diagramme können Kreis-, 
Ring-, Balken- oder Kurvendia- 
gramme benutzt werden, wobei man 
bei letzteren noch die Wahl hat, ob 
die Daten auf der Kurve markiert 
werden sollen oder nicht. 

Übrigens stehen für diese Grafiken 
ebenfalls die verschiedenen Größen 
zur Verfügung. Die Farbe wird bei 
vergleichenden Diagrammen und 


TEST 


bei schraffiertem Kreisdiagramm 
automatisch gewechselt. Hier er- 
kennt man auch, daß die Schreib- 
richtung nicht nur Spielerei ist. 
Man kann so nämlich leicht die 
Y-Achse der Diagramme beschrif- 
ten oder in die Balken hineinschrei- 
ben. 

Leider ist für jede Grafik die Kapa- 
zität der Daten, aus denen das Dia- 
gramm erstellt wird, auf zwölf Da- 
teneingaben beschränkt. Bei verglei- 
chenden Grafiken bezieht sich diese 
Zahl auf jeden Vergleich. Dabei 
können bei Balkengrafiken zwei und 
bei Kurvengrafiken bis zu vier Da- 
tenmengen angegeben werden. 
Allerdings, und das ist ein großer 
Nachteil, muß man bei der Verwen- 
dung vergleichender Grafiken vor- 


Farbige 
Diagramme 
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Problem 


sichtig sein. Nach der ersten Daten- 
reihe wird nämlich die Größe des 
Schaukastens festgelegt. Dabei kann 
es passieren, daß ein Wert aus der 
zweiten Datenreihe zu groß ist und 
nicht angenommen wird. 

Nun kommt aber erst der große 
Clou. Bei einem dritten Blick, dies- 
mal an die rechte Seite des Gerätes, 
findet man hinter einer Plastikklap- 
pe einen Centronics-Anschluß, wo- 
mit die Reiseschreibmaschine so- 
fort zum Reisedrucker, und das Ge- 
rät nicht nur für Manager, sondern 
auch für Computerfreaks interessant 
wird. Vor allem auch, weil diese 
ihre Korrespondenz meist mit einem 
Matrixdrucker erstellen, der zwar 
erheblich schneller ist, dafür aber 
nicht so schön ‚‚schreibt‘‘. Diese Be- 
schreibung trifft auf den EB 50 sehr 
gut zu, da er jeden Buchstaben wirk- 
lich zeichnet, und nicht aus Punk- 
ten zusammensetzt. 

Doch als Drucker allein ist der EB 
50 zu schade, auch wenn man über 


85 


Steuerbefehle Farbe, Zeichengröße 
und Schreibrichtung ändern kann 
und über einen großen Zeichenvor- 
rat verfügt, der viele Sonderzeichen 
enthält (z.B. umgedrehtes Fragezei- 
chen, 1/2, und alle Vokale mit allen 
möglichen Zusätzen wie Kringel 
oder Akzent). Für längere Ausdruk- 
ke ist er mit seinen 7 Zeichen pro 
Sekunde in Normalgröße zu lang- 
sam. In Kleinschrift sind es immer- 
hin schon doppelt so viele. 

Dafür kann er aber auch vom Com- 
puter aus in einen Grafikmodus 
umgeschaltet werden, in dem man 
allerdings nicht, und das ist viel- 
leicht der größte Nachteil, die fe- 
sten Grafikfunktionen ausüben 
kann. 


VIEL LEISTUNG 
FÜR WENIG GELD 


Dafür verfügt man aber über 10 Be- 
fehle, die den Kugelstift gesenkt 
oder gehoben an eine bestimmte 
absolute oder zum augenblicklichen 
Standpunkt relative Stelle bewegt, 
wobei man das Blatt Papier als 
Koordinatensystem auffaßt. Auch 
ist es möglich, den Ursprung zu 
verschieben, die Farbe zu wechseln 
und die Zeichengröße oder -rich- 
tung zu ändern. Die beiden letzten 
Befehle bieten eine Einstellung 
mehr, als über die Tastatur erreich- 
bar: einen extra großen Groß- 
schreibmodus (dreimal so groß wie 
normal) und Schreibrichtung rück- 
wärts auf dem Kopf. 

Mit den Grafik-Befehlen ist es mög- 
lich, richtige Funktionen oder Bil- 
der zu zeichnen. 

Als Beispiel eine Spirale wechselnder 
Farbe mit gleichbleibendem Ab- 
stand zwischen den Umdrehungen. 
Ein Nachteil ist, daß der Schreibstil 
nicht vom Computer aus geändert 
werden kann, sondern vor Umschal- 
ten auf Printer-Modus eingestellt 
werden muß. Ein Unterstreichungs- 
Modus ist dabei nicht zulässig. 
Andere Einstellungen werden nach 
Zurückstellen auf Schreibmaschi- 
nen-Modus wieder auf Standard- 
werte gesetzt. Im normalen Zu- 
stand gesetzte Ränder gehen im 
Printer-Modus verloren. 

Der Lieferungsumfang enthält ein 
gutes deutschsprachiges Handbuch 
mit vielen Bildern, ein Netzteil und 
zwei Sätze Farbstifte, für die eine 
Halterung im Deckel vorgesehen ist. 
Alles in allem bietet der EB 50 trotz 
einiger Mängel sehr viel für sein 
Geld, wobei die wichtigste Eigen- 
schaft sicherlich die des Vierfarb- 
plotters ist. Stephan Schmid 
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Ausführungen — die mittlere An- 
zahl der nötigen Austauschvorgänge 
angegeben werden, welche ein gutes 
Maß für die Effizienz des Sortier- 
verfahrens ist. Sie berechnet sich zu 


Dabei bezeichnet n die Anzahl der 
Elemente in der Liste, entspricht 
also der Konstanten maxindex in 
unserem Programm. Wie aus der er- 
mittelten Formel leicht zu ersehen 
ist, arbeitet Quicksort mit großen 
Arrays am wirkungsvollsten, denn: 


Oder in Worten: Je größer der Wert 
von n, desto mehr nähert sich die 
Anzahl der Austauschoperationen 
dem Wert & . Denken Sie aber 
daran, daß es sich hier lediglich um 
eine mittlere Anzahl handelt, die 
nach den Regeln der Wahrschein- 
lichkeitsrechnung ermittelt wurde. 
Schließlich läßt sich ja nicht vorher- 
sagen, inwieweit eine Liste bereits 
vorsortiert ist. 

Nachdem diesmal schnell sortiert 
wurde, wollen wir uns in der näch- 


sten Folge damit beschäftigen, wie 
man etwas schnell wiederfindet. 
Das dort angesprochene Verfahren 
ist natürlich wieder das absolut 
Schnellste auf diesem Gebiet ... 


(Anm. d. Verf.: Das Material zu 
diesen Folgen entstammt größten- 
teils dem Buch „Algorithmen und 
Datenstrukturen” von Niklaus 
Wirth, erschienen 1983 bei Teub- 
ner, Stuttgart.) 
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Die nächste 
SCHNEIDER AKTIV 


ist am 14. November 
an ihrem Kiosk 


VERDIENEN SIE GELD 
MITIHREM COMPUTER: 


Haben Sie einen CPC 464 oder 6642? Einen 61282? Oder 
einen JOYCE? Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 


Für das ‚‚Listing des Monats‘‘ sogar DM 1.000,'— 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Redaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


NET BT EEE DET 


BRAWMMENT A 000000000 02 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: __  . 


Beigefügt | Listings | Kassette |) Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift _—— 


SCHNEIDER 
AKTIV 


Postfach 1107 
8044 Lohhof 
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